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A IMPORTANCIA 



DE PLANEJAR 



COMOPQSICIONARQTEX TO 

MELHQREADIAGRAMAC AO 

ADICIONE COR 



Para dar a seus programas 
uma apar^ncia profissional, voce 
precisard planejar cuidadosamente 
a pdgins-tltulo e outras telas. 
Aqui voce aprende a fazer isso. 



Do pons o de vista do usuarto, hd vi- 
rias diferenifas importantes entre um 
programa simples e bem planejado e ou- 
tro que nao apresenta essas qualidades. 
A primeira coisa que distingue um pro- 
grama "profissiona!" de um amadon's- 
tico e, sem diivida, o funcionamento 
adequado, sem erros e sem rotinas imi- 
teis ou mal aproveitadas. Alem disso, 
num nivel mais teorico, o programa pro- 
priamente dito deve ser bem estrutura- 
do e claro. As tecnicas necessArias para 
Ihe assegurar uma boa estrutitra^ao e a 
ausencia de erros ji foram vistas em ar- 
tigos anteriores. 

Porem, mesmo programa mais bem- 
feito parecera obra de um principiante 
se nao tiver uma boa apresenta^ao e, so- 
bretudo, se as telas nao forem bem or- 
ganizadas e faceis de compreender. Pa* 
ra isso, cada tela, bem como o menu ou 
mensagem que contJver, deve ser cuida- 
dosamente estudada. Sem o posiciona- 
memo correto das declara?6es PRINT 
e INPUT serd impossivel criar telas de 
apresentagao clara e interessante. 

No artigo da pAgina 146, examina- 
mos OS virios comandos BASIC dispo- 
niveis no seu computador que servem 
para controlar a posi<;ao dos caracteres 
na tela. Agora, voce vera como usd-los 
para montar uma pagina-tituto para um 
jogo imaginario — "INPUT". Tecnicas 
similares poderao ser empregadas para 
a eiaboragao de telas que apresentam 
instrutoes, menus e mensagens. 



INSTRUCOES CLARAS 



Nada causa pior impressao do que 
uma tela contendo mensagens com er- 
ros de grafia ou sintaxe. 

Voce ji deve ler observado em mui- 
tos jogos mensagens do tipo "Voce tern 
um canhao disponivcl". Este caso par- 
ticular desabona o programador, sobre- 



tudo porque o erro poderia ter sido fa- 
cilmente corrigido com uma declaracSo 
IF...THEN (IF L = l THEN PRINT 
"CANHAO DiSPONfVEL"). Antes de 
come<;ar a se preocupar com os aspec- 
tos visuals da tela, procure assegurar-se 
de ter eliminado todos os erros desse ti- 
po de programa. 

Ao diagramar uma tela, leve em con- 
ta atgumas regras b^sicas, Em primeiro 
lugar, nao perca de vista o objetivo prin- 
cipal: a clareza. Patavras muito prdxi- 
mas umas das outras dificuliam a leitu- 
ra — assim, deixe um espago razoivel 
entre as linhas. Evite tambem dividir pa- 
lavras; se for impossfvel, utilize, eniao, 
o hi'fen para separar as duas partes, 

Caso precise imprimir na tela dados 
fornecidos pelo usudrio — como um no- 
me, em uma lista de recordes — , tenha 
o cuidado de evitar que novo dado in- 
terfira nos demais. No exemplo citado, 
voce poderia inciuir uma rotina que nao 
aceitasse nomes com mais de um certo 
niimero de caracteres ou que, indepen- 
dentemente do tamanho do novo dado, 
o colocasse numa posigao que nao afe- 



tasse a do placar ou de outras informa- 
goes exibidas. 

Sempre que voce tiver uma lista de in- 
formasjoes, faga com que todos os da- 
dos comecem numa mesma coiuna. A 
recomenda?ao parece 6bvia, mas v^ios 
programadores nao procedem assim. 

O segundo aspecto a observar diz res- 
peito a quantidade de informapdes. Se 
voce incorrer no erro de introduzir in- 
forma(;oes em excess© numa mesma te- 
la, quern utilizar seu programa nao con- 
seguira memorizar todas as instru^oes e, 
em conseqiiencia, nao explorara todas 
as suas possibilidades. 

Per outro lado, para nao ser obriga- 
do a trabalhar com um mimero exage- 
rado de telas, voce nao podcra reduzir 
muito a quantidade de informa<;ao em 
cada uma delas. O ponto de equili'brio 
dependera, rtaturalmentej do seu pro- 
grama — quanto raaior sua faciiidade 
de uso e clareza, menos instruf oes serao 
necessarias. 



USO DE CORES 



Torne a tela o mais interessante pos- 
sivel. Se puder use cores. Elas dao mais 
vida a tela, facilitando a compreensao 
das mensagens ou ressaltando determi- 
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nados iiens. Estude cada caso para de- 
cidir se utilizara cores no fundo, no tex- 
to, em am bos ou simplesmente na com- 
posi^ao de uma motdura. 

Os usuirios do Apple ou do Sinclair 
Spectrum dispoem de um comando mui- 
to vers^til — o FLASH. Ele apresenta- 
ri sua mensagem piscando na tela (em 
cores, no Spectrum). Impedindo que as 
instrucoes assumam uma forma muito 
estatica, esse recurso torna o texto bas- 
tante atraente. 

Se voce possui outro modelo de mi- 
cro, poderd obter um efeito similar ao 
do comando FLASH, imprimindo o tex- 
to repetidamente no mesmo ponto da te- 
la, em cores diferentes. 

O comando INVERSE, do Apple, 
tamb^m possibilita o destaque de men- 
sagens, Ele i especialmente litil, j4 que 
nao se pode usar cor na tela de texto des- 
se computador. 



POSICIONAMENTO 



Para assegurar a clareza da tela, fal- 
ta ainda um importame elemento: o po- 
sicionamento das palavras. Para ter um 
exempio, digite e execute este pequeno 
programa. Voce verA como nao fazer 
uma pdgina-titulo para o seu programa. 
As palavras estao jogadas na tela: nao 
ha coordena^ao entre uma e outra, o 
que resulta numa grande confusao vi- 
sual. Mais tarde, examinaremos como 
arrumar tudo isso. 



to PRINT "ApresentanoB um nov 

o jogo chamado input" 

20 PRINT AT 5.17;'{c) 1986" 

30 PRINT AT 12,13;" por Nova 

Cultural" 

40 PRINT AT 18,18: "qualquer t 

ecla" 

50 PAUSE 100 

60 CLS : STOP 



DD 



10 CLS 4 

20 PRINT e40, "INPUT" 

30 PRINT §136, 'copyright nova c 

ul tural " ; 

40 PRINT #226. 'APRESENTA" 

50 FOR T=l TO 2000 :NEXT:CLS 

Para o TRS-80, use apenas CLS na 
linha 10 e multiplique por 2 todos os va- 
lores das instrufoes PRINT®. 



reaenta" 

20 PRINTTAB(IO) ; "input." 

30 PRINT: PRINT"copyrioht I9S6' 

40 FOR J'lTOSOO : NEXT 

50 CLS 
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1 10 PBINTTAB(4) ; "novacultural ac 



10 PRINT TAB( 5) j-NOVACULTDRA 

r, APHESENTA" 

20 PRINT TAB( 22};"INPUT" 

30 PRINT : PRINT "COPYRIGHT 19 

S6" 

40 FOR J = I TO 1000: NEXT 

50 HOME 

Observe o resultado: trata-se, sem 
diivida, de uma tela inexpressiva, em 
que vdrios detaJhes precisam ser altera- 
dos. Inicialmente, poderiamos empregar 
letras maiusculas para melhorar o efei- 
to. A versao para o Spectrum utiliza le- 
tras minusculas at^ mesmo para a pri- 
meira palavra da tela e para o nome do 
jogo. Maiusculas ressaltam palavras im- 
portantes ou, se forem usadas no texto 
inteiro, garaniem a tela uma aparencia 
bem clara. 

Deverfamos, tambem, limpar a tela, 
antes de mostrar um novo conjunto de 
mensagens. Como voce pode observar 
no programa anterior, fragmentos do 
que estava na tela misturam-se a men- 
sagem, completando a confusao. 

Nao hd espa^o entre as palavras NO- 
VA e CULTURAL. Deveria haver. Ve- 
remos, adiante, como deixar tudo isso 
em ordem. 

Outra falha do programa 6 nao espe- 
rar que se pressione alguma tecla para 
prosseguir. Assim, nao h^ muito tem- 
po para ler as mensagens antes que elas 
sejam apagadas. Para evitar esse proble- 
ma e sempre interessante incluir uma li- 
nha dizendo o que se deve fazer para que 
o programa continue — quando o usua- 
rio quiser. 



No Spectrum, sabendo-se o tamanho 
da tela e o numero de caracteres que 
compoem as palavras, pode-se planejar 
com muita facilidade o posicionamen- 
to da mensagem. 

Suponhamos que seu computador te- 
nha 22 linhas e 32 colunas; voce quer co- 
iocar uma frase de dez caracteres na se- 
gunda linha, e bem no meio dela. Ao ve- 
rificar o tamanho da frase, nao se esque- 
<;a dos espa(;os. 

Para calcular a coordenada horizon- 
tal da posifao onde a frase come9ard a 
ser impressa, subtraia o tamanho da fra- 
se (10 no nosso caso) do total de carac- 



teres por linha (32) e divida o resultado 
por 2. 

No nosso exempio, a resposta ell. 
Como o 6 considerado, o primeiro ca- 
ractere da linha tem coordenada 0, e nao 
1. Assim, devemos subtrair 1 do resul- 
tado acima para conseguir a coordena- 
da horizontal do PRINT AT (ou PRINT 
TAB), 

Se voce quiser posicionar uma frase 
a apenas dois ou tres caracteres da mar- 
gem esquerda, serd mais facil colocar o 
niimero de espagos dentro da declara- 
gao PRINT em vez de usar PRINT TAB 
ou PRINT AT. No entanto, se o niime- 
ro de espagos for grande, evite essa tec- 
nica, pois ela tende a gastar muita 
memdria. 

Voce pode calcular a posi<;ao vertical 
como cakula a horizontal — ou seja, 
para colocar a mensagem no centro da 
tela, vg quantas hnhas ela ocupa, sub- 
trai esse niimero do total de linhas e di- 
vide por 2. For fim, subtrai I do resul- 
tado, considerando que a coordenada da 
primeira linha e 0. 

Quando quiser colocar a linha em ou- 
tra posigao, use um papel grafico para 
visualizar melhor a tela, ou, se ja tem 
alguma experiencia, estime a posigao 
que Ihe convem, de memoria. 

Os usuarios do Spectrum devem ob- 
servar que a instrugao PRINT AT fun- 
ciona de modo um pouco diferente do 
dos outros computadores. O primeiro 
numero que acompanha essa instrufSo 
refere-se a coordenada vertical (y) e o se- 
gundo, a coordenada horizontal (x). No 
entanto, o comando PLOT utiliza pri- 
meiro a coordenada .\ e depois a y. 
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O numero ap6s o PRINT® refere-se 
a uma posigao da tela de texto do com- 
putador. Existem 512 posigoes no TRS- 
Color e 1024 no TRS-80. Os mimeros, 
assim, nao podem exceder 511 e 1023, 
respectivamente, ja que a numeragao co- 
mega no 0. 

O calculo do niimero da posigao que 
se quer e muito simples. Primeiro, mul- 
tiplique numero da linha desejada por 
32 (esse i o numero de caracteres por li- 
nha, no Color) ou por 64 (se vocg esti 
usando um TRS-80). Depois, adicione 
um valor de a 31 (no Color) ou de 
a 63 (no TRS-80), para obter a posigao 
horizontal. 

Se preferir, deixe que o computador 
faga as contas por voce. Para isso, uti- 
lize a seguinte formula: PRINT® 
L*32-l-C, "MENSAGEM", L represen- 
ta a linha que voce deseja (de a 14) e 
C a coluna (de a 31). No TRS-80. use 




64 em lugar de 32; C pode variar de ( 
a 63. 

Para centralizar uma frase na tela, 
subtraia o totaJ de caracteres da frase do 
total de caracteres da linha {32 ou 64); 
divida o resultado por 2 e subtraia 1. 
VocS obtem, assim, o niimero da colu- 
na em que a impressao da frase se ini- 
ciara. Esse valor pode ser utilizado, por 
exemplo, com a fdrmula dada anterior- 
mente, Lembre-se de que os numeros 
que seguem a instrufao PRINT® de- 
vem ser inteiros. 



O posicionamento de mensagens no 
MSX tambem e muito f^cil. Esse com- 
putador usa o comando LOCATE, se- 
guido da coluna e linha (nesta ordem). 
Assim, para colocar a mensagem no lu- 
gar desejado, basta calcular a coluna e 
a linha. 6 mesmo comando tambem po- 
de ser usado com um argumento num^- 
rico, que sera interpretado como a co- 
luna onde se iniciard a impressao. 

Como o MSX tern duas telas de tex- 
10, verifique qual delas estd em uso pa- 
ra, entao, calcular a posii;ao adequada 
de impressao, A primeira (SCREENO) 
apresenta quarenta colunas por 24 li- 
nhas e a segunda (SCREENl), 32 colu- 
nas por 24 linhas. 



Para centralizar uma frase em deter- 
minada linha, subtraia o total de carac- 
teres da frase do total de caracteres da 
linha e divida o resultado por 2. Esta se- 
ri a posifao para o im'cio da frase. 



BDE] 



O Apple e seus compatfveis empre- 
gam, aUm do PRINTTAB, os coman- 
dos HTAB e VTAB para posicionar o 
cursor dentro da janeia de texto. O co- 
mando HTAB determina a posi?ao ho- 
rizontal com valores que variam de 1 a 
40 e o VTAB determina a posigao verti- 
cal, com valores que vao de 1 a 24. O 
uso de valores fora dessas faixas provo- 
cara o aparecimento de uma mensagem 
de erro, 

Para a centralizafao de uma mensa- 
gem, primeiro calcule o total de carac- 
teres dela, depois subtraia de 40 e divi- 
da por 2. O resultado obtido deve ser 
utilizado como posi?ao inicial de im- 
pressao da mensagem. 

O interessante, nesse computador, e 



a facilidade com que se pode manipu- 
lar a janeia de texto. Essa caracteristsca 
torna muito simples a limpeza da linha 
de uma deierminada posipao ate o fim 
deia ou de uma posipao ate o fim da te- 
la. Utiliza-se o comando CALL -868 pa- 
ra apagar tudo o que estiver h direita da 
posi<;ao do cursor ate o fim da linha. O 
CALL -958 limpa lodos os caracteres da 
janeia de texto, da posigao do cursor ate 
o fim da tela. Desse modo, podemos 
trocar mensagens em locais especificos 
da tela, conservando o resto iniocado, 
com grande rapidez e versatiUdade. 



UMA TEU BEM-FEtTA 



Uma tela pode ser clara e atraente 
mesmo que nao empreguemos t^cnicas 
de programagao complicadas. O progra- 
ma dado a seguir 6 urn exemplo disso. 
Ele corrige os defeitos do programa an- 
terior e adiciona cor e anima^ao ao ti- 
tulo. para torna-lo mais interessante. De 
especial atengao ao uso dos comandos 
de controle do cursor, pois eles sao fun- 
damentals em tudo o que diz respeito k 
impressao na tela. 



PAPER 1: INK 7; 



INK 1 ;AT 



INK 2; FLASH 



F 



5 LET X=l 
10 BORDER 1 
CLS 

20 PRINT INVERSE 1;AT 3,4;' 
EDITORA NOVA CULTURAL " 
30 PRINT INVERSE 1 ; AT 5,10; 

APHESENTA " 
4 PAUSE 5 
SO PRINT PAPER 
10,10;" I N P U 
60 PRINT PAPER 
1;AT ■?,9;Te3BHH^Br?aHaHfl 
'':AT11.9;''liJIBHaUaBaaQyUH 
70 PRINT PAPER 6; INK 2; 
FLASH liAT 10,9;"i:";AT 10,21; 

80 PRINT PAPER b ; INK ; AT 

15. 2 r "COPYRIGHT AUDIO . VISUAL , 

1984" 

90 PRINT QUALQUER TECLA 

PARA CONTINUAR" 
100 PAUSE 
110 CLS 

120 PRINT "INPUT - INDICE" 
130 PRINT 
140 FOB X=l TO 10 
150 READ aS 
155 READ b$ 

160 PRINT 'TAB 3;a$;TAB 25;bS 
170 NEXT X 

180 DATA "Animacao" , "26-32" , "B 
agic,progrdmacao" , "2-7" . "BREAK 
, Spectrtiiti" , "7" , "Caasetea" , "25" 
. "Gravadores" , "24" , "CHRS ,U30 
do" . "26-2 7" , "CLEAR" ."10-27"."C 
LOAD, Dragon" . "14" , "CLS.expl ica 
cao de" . "27" , "CODE, Spectrum", 
"8" 

Como voce pode observar, o progra- 
ma, iniclalmente, muda a cor da tela e 
das bordas, e limpa a tela. Escoiha as 
cores de sua preferencia, mas procure 
evitar o habitual fundo negro com Ictras 
brancas. Qualquer outra coisa terd efei- 
to melhor, simplesmente por ser di- 
fe rente, 

Nao se esquega, porem, de que a fa- 
ciiidade de teitura e indispensavel. As- 
sim, para as letras, opte por uma cor que 
contraste bem com o fundo. Fora isso, 
use seu bom gosto: algumas combina- 




56es sao, sem diivida, bem mais agra- 
diveis que outras. 



POSICIONAMENTO 



As linhas 20 e 30 colocam na tela as 
palavras "EDITORA NOVA CULTU- 
RAL APRESENTA". Observe que o 
npme da empresa fica na primeira linha 
e a palavra "APRESENTA", duas li- 
nhas abaixo. Esse detalhe garante ao 
texto muito maior clareza. 

O programa utiUza o comando 
PRINT AT para posicionar as palavras 
no eentro da tela. Tente descobrir quais 
deveriam ser os numeros dessa instru- 
qa.Q por meio dos cdlculos explicados an- 
teriormente. Veja se eles conferem com 
OS do programa! 

Ao contrdrio do programa anterior, 
este posiciona as palavras no lugar ade- 
quado — detalhe que, como voce pode 
notar, determina uma grande diferen^a 
de qualidade entre as telas. 

Pode-se tambem utilizar a instrugao 
PRINT TAB para posicionar a mesma 
patavra, mudando a linha 30 para; 



30 PRINT 'TAB 10; INVERSE 1; 
"APRESENTA" 

O apbstrofo junto ao TAB 10 faz 
com que o Spectrum deixe uma linha em 
branco antes de imprimir "APRESEN- 
TA" na tela. Pode-se tambem obter o 
mesmo resultado simplesmente colocan- 
do uma instru^ao PRINT vazia (com 
um numero de linha apropriado). 

O programa faz uma pausa apos es- 
sa mensagem para dar maior enfase ao 
pr6ximo item que deverS ser impress©, 
o nome INPUT. 

As linhas 50, 60 e 70 imprimem IN- 
PUT com uma borda que pisca em ver- 
meiho e amarelo. Ess a borda e feita com 
caracteres grdficos da ROM — como se 
vS no programa — com o comando 
FLASH usando vermelho e amarelo. 

Essas linhas ulilizam uma serie de co- 
mandos PRINT AT e mostram o quan- 
to ele e flexivel. Nao ha necessidade de 
se repetir o PRINT enquanto um ponto 
e virgula 6 colocado entre os itens da 
linha. 

Os virios AT sac separados por pon- 
to e virgula. Caso os separdssemos ape- 
nas por virgulas, estas colocariam meia 




iinha de espago na lela, o que poderia 
apagar alguma outra coisa que aii se en- 
contrasse. Assim, a nao ser que voce 
queira apagar o que estiver nesta posi- 
cao da tela, use de preferencia o ponto 
e virgula, 

Como a borda piscante nao fica no 
centro da Iinha, o cilculo de suas coor- 
denadas nao pode ser feito da maneira 
explicada anteriormente, Calcule as po- 
sipoes tomando as coordenadas da pa- 
lavra central da Iinha e adicione e sub- 
traia o numero necessdrio para obter os 
resultados para a borda, 

Tomemos, como exemplo, a primei- 
ra Hnha da borda. J^ sabemos que as 
coordenadas da palavra INPUT sao 10, 
10. Sabemos tamb^m que esta Iinha fi- 
ca uma acima de INPUT. Entao, sub- 
traindo 1 do primeJro numero, obtemos 
a primeira coordenada: 9. 

Como queremos que a borda come- 
ce um espapo antes da palavra, nova- 
mente subtraimos I, agora da segunda 
coordenada de INPUT, obtendo 9. 

Calcule OS mimeros das outras par- 
tes das bordas e compare seus resulta- 
dos ks coordenadas que empregamos. 



O programa completa a tela com uma 
mensagem de direitos autorais (para 
lembrar aos usudrios que d ilegal copiar 
programas) e in forma que se deve pres- 
sionar qualquer tecia para continuar. 
Ao faze-lo, nao aparecerao instru?6es 
nem o inicio de um jogo, mas um mdi- 
ce de INPUT. 

Quando se pressiona uma tecla, o 
Spectrum limpa a tela e imprime a men- 
sagem "INPUT — INDICE" em seu to- 
po. A mensagem e posicionada no can- 
to esquerdo da Iinha. Se quiser centra- 
lizi-la, introduza nove espa?os entre as 
aspas e a primeira letra da mensagem. 
Em seguida, o computador deixa uma 
Iinha em branco, resultado do PRINT 
sem nenhuma mensagem da Iinha 130. 

O lafo FOR. ..NEXT que se segue le 
duas variiveis alfanumericas da Iinha 
DATA de numero 180. Pode parecer es- 
tranho que niimeros de paginas estejam 
armazenados em variaveis desse tipo. 
Observe, no entanto, que 4s vezes en- 
contramos mais de um numero. Sua ar- 
mazenagem numa vari^vel num^rica se- 
ria interpretada como uma subtra<;ao e, 
quando imprimissemos o valor da varid- 
vel, iriamos obter o valor- 6, o que cau- 
saria muita confusao! 

AJem disso, alguns dados apresentam 
informacoes separadas por virgula. Co- 
mo voce sabe, esta ^ a pontua9ao que 
separa diferentes itens numa Iinha DA- 
TA. Assim, e necessArio colocar esses 
dados entre aspas para que o computa- 
dor nao OS interprete como coisas dis- 
tintas — com as aspas, ele le a informa- 
(jao como um bloco, sem separd-la, 

A Iinha 160 controla a impressao das 
informafoes da Iinha DATA, determi- 
nando sua posi^ao na tela. 

O PRINT TAB alinha os dados e nii- 
meros de paginas para que todos come- 
cem na mesma coluna, dando k hsta 
uma aparencia organizada. Ele e muito 
litit na impressao de indices, determi- 
nando a coluna em que o dado come^a- 
rA a ser impresso. Nosso programa co- 
loca a indica?ao na coluna 3 e a pigina 
na coluna 25. 

Observe que usamos apenas um 
PRINT para imprimir os dois dados na 
Iinha, sendo que os TAB sao separados 
por ponto e virgula, Se voce mudar o 
TAB 25 para TAB <25 + 32) ou TAB 57, 
nao notarS nenhuma diferen^a. Quan- 
do se emprega um numero maior que 
32, ele e dividido por 32 e o resto 6 des- 
prezado. O cursor nao muda de Iinha ate 
que se utilize o retrocesso — ou seja, ate 
que um TAB tenha um valor menor do 
que a posiipab atual do cursor. O micro 
pula, entao, para a Iinha seguinte e ne- 
ia coloca a informa^ao. 

Experimeme mudar os valores do 



TAB para ter uma id^ia melhor do que 
eles significam em termos de posipao na 
tela, Lembre-se de que esta tem 32 ca- 
racteres por Iinha, 

O PRINT AT e o PRINT TAB, em- 
bora muito parecidos, sao usados em 
circunstancias diferentes. Sem pre que 
voce quiser imprimir uma tista de pala- 
vras ou numeros na tela, utilize PRINT 
TAB. PRINT AT e mais poderoso pa- 
ra a impressao de mensagens isoladas 
em determinado ponto da tela. 



Digite este programa e veja como o 
PRINT® pode ser usado para produ- 
zir uma pdgina-titulo adequada: 



•cult 

'APRESENTA" ; 

'copyright" ; BS 



10 CLS 3:B3=CHR5[12a) 

20 PRINT e7X,BS;"nova" ;BS; 

ural";B$; 

30 PRINT §138, 

40 PRINT §358. BS; 

;B$ ;B$; "1986" ;B$; 

50 PRINT e232,CHR$U90) jSTRINGS 

(11 ,CHR$(ie8) ) iCHRS (189) ; 

60 PRINT §264,CHRS(234) ;" I N P 

it T " ; CHHS (229) ; 
70 PRINT §296, CHRS(155) [STRINGS 
(ll.CHR${147)) ; CHHS (151) ; 
SO PRINT §448," QUALQUER TECLA 
PAHA CONTINUAB " ; 
90 J-l-J: SCREEN 0,J 
100 FOR K-1 TO 200:NEXT 
110 IF INKEYSO"" THEN 130 
120 GOTO 50 
130 CLS 4 

140 PRINT §7, "INPUT - INDICE"; 
150 FOR X-3 TO 12 
160 READ DS.ES 

170 PRINT §32*X+1 ,DS; :PRINT §32 
*X+25, LEFTS (" " + ES + " ".7); 
laO NEXT X 

190 DATA ANIMACAO, 26-32, "BASIC, 
PROGRAMACAO" , 2- ? , "BREAK , DHAGON" 
, 7 , "CASSETE , FITAS" , 25 , "CASSETE . 
GRAVADORES" , 24 , "CHRS.USO DE" , 26 
-2 7, CLEAR, "10,27" , "CLOAD.TRS" , 1 
4 , "CLS, EXPLICACAO" , 27 , "CODE. SPE 
CTHUM" ,8 
200 GOTO 200 

O programa comeca mudando a cor 
da tela para azul, na Iinha 10. O resto 
da Iinha iguaia B$ a um quadrado escu- 
ro. As linhas 20 e 40 imprimem as pala- 
vras em caracteres reverses, usando B$ 
como um espago. Lembre-se de que os 
caracteres reversos do TRS-Color 
aparecem em minusculo nas listagens, 

A hnha 30 e similar, com uma dife- 
ren^a: como a palavra APRESENTA e 
menos importante, aparece em caracte- 
res maiiisculos normals. 

No centro da tela estd o titulo INPUT 
rodeado por um bloco grafico colorido. 
Os caracteres e o titulo sao impressos pe- 1 
las linhas 50 a 70, 



O manual indica os earacteres grafi- 
cos que est3o disponiveis. Eles sao cons- 
tituidos por dreas verdes e ireas escuras. 
Adicionando-se urn multiplo de 16 ao 
c6digo do caractere, o vcrde pode ser 
substituido por amarelo, azul, verraelho 
etc. 

As dreas da tela coloridas de verde 
sao aquelas em que a cor de fundo apa- 
rece. E fdtcil mudar a cor da tela do ver- 
de para o laranja e produzir um efeito 
pisca-pisca. Para a mudanga, a linha 90 
usa o comando SCREEN de maneira si- 
milar a uiilizada para mudar a cor de 
graficos de alta resolupao. SCREEN 0,1 
muda a cor da tela para laranja e 
SCREEN 0, traz de volta o verde. O 
programa tioca a cor da tela a cada exe- 
cu^ao do la<;o. 

Para que se possa apreciar melhor a 
mudan?a de cor, a linha 100 estabelece 
uma pequena pausa. A linha 120 vai fe- 
char la?o. 

Se alguma tecla e pressionada en- 
quanio a pSgina esta sendo mostrada, 
a linha 1 10 faz com que o programa pas- 
se para a parte seguinte. 

A linha 130 muda a tela para verme- 
Iho. A linha 170 e o la(;o FOR. ..NEXT 
das linhas 150 e 180 encarregam-se de 
imprimir os dados lidos da linha 190. A 
cada execuijao do lago, uma nova linha 
i usada para a referenda e o niimero de 
linha. O LEFTS faz com que o niimero 
da linha aparcpa sempre num painel do 
mesmo tamanho, que assegura um vi- 
sual bastante claro. 

O toque final cabe ao la?o da linha 
200 que, embora nao parega, ^ bem im- 
portanie. Sem essa linha, o programa 
colocaria uma mensagem de prontidio 
na tela, desfigurando nosso trabalho. 



Vejamos uma tela mais cuidada pa- 
ra apresentar o nosso jogo: 

10 COLOE) 15,12.12-KEYOFF 

20 SCHEENl :CLSrZS=CHRS(l) 

30 PRIMTTAB(81 ; "NUVA CULTURAL" 

40 PflINT:PRTNTTA8{6) ; "A P H E S 

E N T A" 
50 LOCATE U.9rPRtNTZS+CKftSCe8) 
; :FORX=3T05:PRIMT ZS+CHRS(87) i : 
NEXT : PRINTES+CHRS {B9) 
60 LOCATE 11 , ]0:PRINTZS+CHRS(86 
1 :" INPUT" iZS+CHRS (fl6) 
70 LOCATE 11, 11 :PR]NTZS+CHRS:90 
1 ; :F0RK=LT0!i : PRINT 2S+CHR$(87) ; 
:NEXT: PRINTZS+CHRS (91 ) 
80 LOCATE S. 19.PRINT"CopYr ight 
(C) 1986" 

90 LOCATE 2. 22 :PHINT"Tecl<* a ba 
rra de eapacoa" 
100 IF INKEYS=""THENIOfl 
no CLS:LOCATE 7 :PRINTCHHS (20 7) 



: "INPUT - INDTCE" ;CHRS (20B1 
120 FOB J=1T07: LOCATE 0,7*J+6 
IJO READ AS,B$ 
140 PRlNTA$;TABi2"!) : BS 
15tJ NEXT 
160 GOTO 160 

170 DATA ANlMAgAO, 26-.^2,PR0nRAM 
AC&O BASIC, 2- 7, "CTRL-STOP, MSX" 
,8,SISTEMA OPERACIONAL, 25 ,CONTH 
OLADORES DE DISCO , ?4 , "CHHS , U30 
do" , 26-27, "POKE, como uaar o" , 
27-28 

O programa come^a mudando a cor 
da tela para verde, com earacteres bran- 
cos, e desativando as indicagoes das te- 
clas de fun^ao. Em seguida, seleciona a 
tela de texto de 32 colunas e defme a va- 
ridvel Z$ como o caractere de c6digo 1 . 
Adiante, veremos a utilidade dessa va- 
riivel. 

As linhas 30 e 40 colocam na tela, de 
forma organizada, a mensagem "NO- 
VA CULTURAL APRESENTA". O 
PRINT TAB, com um valor adequado, 
encarrega-se de centralizar as palavras, 
enquanto o PRINT vazio que inicia a li- 
nha 40 produz o espaeo de uma linha en- 
tre as palavras. 

As linhas 50 e 70 imprimem o tltulo 
INPUT dentro de uma moldura forma- 
da por earacteres grdficos. Esses earac- 
teres sSo acessados pela instru?ao PRINT 
na forma: PRINT CHRS(1) + CHR$ (c6. 
digo do caractere -I- 64), 

Observe o uso da instrutao LOCA- 
TE, ji explicada anteriormente,_ para 
posicionar na tela earacteres grdficos e 
palavras. 

A linha 100 pode parecer um tanto 
estranha, mas € muito importante no 
programa. Ela faz com que o coraputa- 
dor varra repetidamente o teclado, ati 
que pressionemos alguma tecla, passan- 
do para a parte seguinte. 

A linha 110, por sua vez, hmpa a te- 
la e posiciona uma mensagem no topo 
desia. As referencias e niimeros de pa- 
ginas sao lidos da linha DATA e impres- 
ses pelas instrufjoes do la?o das linhas 
120 a 150. 

A linha 160, finalmente. tem como 
fungao evitar que o cursor e um OK pro- 
vocados pelo termino da execugao do 
programa atrapalhem o visual da tela. 



\ii\S\\ 



1 HOME 

20 INVERSE : PRINT : HTAB 12: 

PRINT " NOVA CULTURAL " 

30 PRINT : HTAB 10: PRINT " A 

PRESENTA" 

40 UTAB 12: PRINT SPC ( 16): N 

OHMAL ; PRINT " INPUT " ; : INWER 

SE : PRINT SPC( 17) 



45 NORMAL : UTAB 20: HTAB 15: 

PRINT -VERSAO 1.1' 

SO PRINT : HTAB 11: PRINT "COP 

YRIGHT tC) 19B6" 

60 FLASH ; VTAB 24: HTAB 7: PR 

INT ' TECLE A BASRA DE ESPACOS" 

; : NOBFfAL 

7 GET A5 

80 HOME : INVERSE : PRINT SPC 

( 13); "INPUT - INDICE" ; SPC< 13 

) ■ NORMAL 

90 POR J = 1 TO 7 : VTAB J * 2 

+ 8 

too BEAD IS.PS: PRINT TAB ( 7) 

[IS; TAB( 30) i PS : NEXT 

no GOTO 110 

120 DATA ANIMACAO, 26-32. PRO 

GRAWACAO BASIC, 2 -7, "CTRL -C, App 

le" ,7,S1STEMA OPERACTONAL , 25 ,C0 

NTROLADORES DE DISCO , 24 , "CHRS , 

uao do" , 26-27 . 'POKE , como uaar 

o", 27-28 



O programa produz uma tela bem 
mais elaborada que a anterior. Logo que 
se inicia, ele limpa a tela e seleciona o 
modo invertido de apresentaflo de ea- 
racteres. A instrufao PRINT vazia nas 
linhas 20 e 30 faz com que o computa- 
dor pule uma linha antes de come^ar a 
imprimir as mensagens. 

Os comandos HTAB e VTAB, como 
jd explicamos, posicionam o cursor pa- 
ra a impressao. 

Na linha 40, a instrupao PRINT SPC 
(..), no modo invertido, provoca o apa- 
recimento de uma linha escura antes do 
titulo INPUT, dando-lhe destaque. 

As linhas 45 a 50 imprimem no mo- 
do normal mensagens de copyright e da 
versao do programa. 

A linha 60 utiliza o comando 
FLASH. Os usudrios do TK-2000 devem 
substituf-lo por INVERSE. A mensagem 
apareceri piscando no Apple, jutila- 
mente com o cursor {i quase impossivcl 
esconde-lo, mas, dessa forma, ete se 
confunde com a mensagem). 

A linha 70 faz o computador esperar 
at 6 que alguma tecla seja pressionada 
para continuar a execu?ao. 

Em seguida, o programa limpa a te- 
la novamente e coloca a mensagem "IN- 
PUT - INDICE" no modo invertido. O 
lago das linhas 90 e 100 le e imprime na 
tela as referencias e mimeros de paginas 
respectivos. Observe que isso e feito por 
meio dos comandos READ e PRINT 
TAB. A mesma instrugao PRINT impri- 
me a referenda e o niimero da pigina, 
estando os TAB separados por ponto e 
virgula. Esse processo facilita muito a 
montagem de listas e tabelas. 

A linha 110 impede que o programa 
termine. Assim, evita-se o aparecimen- 
to do cursor na tela, o que afetaria a dis- 
tribuicao das mensagens. 
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6ERACAO DE BLOCOS 
GRAFICOS (2) 



NOVAS FUNCOES 



INVERSAQDE CORES EFORMAS 

IMAGENS AO ESPELHO 

COMO RODAR OS CARACTERES 

USD DA IMPRESSORA 



Aqui estS a parte que faltava a 
seu pfograma gerador de blocos grdficos. 
Com as novas fun95es incorporadas, 
voce poder^ criar caracteres com 
muito mais facilidade. 



Este artigo completa o programa ge- 
rador de caracteres grdficos. As novas 
linhas acrescentam-lhe recursos que tor- 
nam ainda mais f^cil a criagao de blo- 
cos definidos pelo usuario. 

Alem da parte final do programa, vo- 
ce encontrarA aqui algumas dicas de co- 



rao usar os caracteres criados em seus 
programas BASIC. 



Depois de acrescentar as novas linhas 
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ao programa dado no artigo anterior, 
voc6 terd mais seis fun^des ^ sua dis- 
posi<;ao. 

A primeira evidencia-se jd no inicio. 
E!a mostra na tela os valores dos oito 
bytes correspondentes ^s linhas do blo- 
co, bem coroo uma versao em tamanho 
real na tela. Isso e feito por um progra- 
ma em linguagem de mdquina, que atua- 
liza tanto os valores como o bloco em 
tamanho real sempre que modificamos 
um ponto. 

O programa completo tamb^m per- 
mite que vocS limpe o quadricutado por 
meio da tecla C, evitando o trabalho de 
apagar ponto por ponto. 

Existem ainda tres outras teclas de 
controle a que se pode recorrer para mo- 
dificar o padrao do quadriculado. Se vo- 
ce apertar o M, o bloco seri substitui- 
do por sua imagem ao espelho. Assim, 
sempre que quiser obter uma figura 
composta por dois blocos slm^tricos — 
uma espaifonave, por exempio — , bas- 
la desenhar um deles, guard4-lo no ban- 
co de meni6ria e criar a imagem sim6- 
trica usando a tecla M. Tamb^m langa- 
mos mSo desta funf So quando estamos 



desenhando duas figuras iguais, cada 
qual apontando para uma dire^ao. 

De modo semelhante, i possi'vel ro- 
dar o bloco 90 graus, pressionando a te- 
cla R. Esta funqao seri muito util quan- 
do se precisar criar apenas um bloco — 
de um torpedo, digamos — e depois vi- 
ri-lo em todas as dire?6es. 

Com a ultima das tres fun^Ses voc§ 
obterd o inverse do caractere, por meio 
da tecla I. Se usi-la duas vezes seguidas, 
terd o inverso do inverso, ou seja, o ca- 
ractere original. 

O programa passard a dispor, tam- 
b^m, de uma rotina de impressao. Pode- 
se empregd-la para imprimir os valores 
dos bytes que serSo colocados em uma 
linha DATA, por exempio, ou para fa- 
zer uma c6pia da tela. Esta saird melhor 
ou pior de acordo com o tipo de sua im- 
pressora. 

Para usar a impressora, pressione a 
tecla Z, seguida de D ou S, con forme 
queira valores de bytes ou uma c6pia da 
tela, respect] vamente. Caso outra tecla 
seja utilizada, o programa voltari a 
edi^ao. 

Se voce nao tiver uma impressora, 



nao copie as linhas de 2570 a 2590. 
Acrescente, por^m: 

2570 GOTO ZOOO 

Aqui estd o resto do programa: 

5 CLEAR 31999 

12 LET T-0: FOB N- 32000 TO 
32227: READ A; POKE N,A: LET 
T-T+A: NEXT K: IF T021691 
THEN PRINT FLASH 1;"ERH0 NA 
S LINHAS 'DATA'-: STOP 

2020 PRINT AT 10,21:CHRS 139 iCH 

RS 131;CHRS 135;AT ll,21iCHRS 1 

38iAT 11,23;CHHS 133;AT IZ.ZljC 

HRS 142;CHR5 140[CHHS 141 

2030 RAND USR 32000 

2530 IF INKEYS-"!" THEN HAND U 

SR 32092 

2540 IF INKE^$-"C" THEN' POKE 3 

2106,0: RAND USR 3209Z : POKE 32 

106,12 

2550 IF INKEY$-"M- THEN BAND U 

SH 32145 

2560 IF INKEY$-"H" THEN RAND U 

SH 32183 

2570 IF INKEYSO-Z" THEN GOTO 

2000 

2575 INPUT "CtOPIA DA TELA) OU 

B(¥TES)? ": LINE zg 
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2S80 IF ZSO'C" AND Z$<>"B" THE 

N GOTO 2000 

2590 IF 2$--C" THEN COPY : GOT 

O 2000 

2600 LET CH-65: FOR N-USR "A" T 

USR -U-+7 STEP 8 

2610 LET TA-Or LPBINT CHR$ CH: 

FOR M«N TO N+7: LPRINT TAB TA;P 

EEK M; : LET TA-TA+4 r NEXT M 

2520 LPRINT : LET CH-CH+1 : NEXT 

N 
9100 DATA 62,2,205,1,22,62,22,2 
15,62.8,215,175,215.33.11.72,22 
1, 33,118,72 

9110 DATA 6,8,197,6,8,14,128,17 
5,50,91.125,126.254,1,40,7,58,9 
1,125,129 

9120 DATA 50,91.125,203,57,35,1 
6,239,58.91,125.221.119.0,229,2 
21.229.62,23,215 

9130 DATA 62,5,215,33,90,125,20 
5,40,26.62.13.215,221,225,225,1 
'.24.0,25,221 

9140 DATA 229,209,20,213,221.22 
5,193.16,189.201,0,0,33,11,72,6 
.6,197,6,8 

9150 DATA 197,126,254,1.229.40. 
12 , 6 , 7 , 62 , 1 , 1 19 , 36 , 16 , 252 . 54 . 25 
5,24,13,6 

9160 DATA 4,54,85,36,54,171,36, 
16 . 248 , 37 , 54 . 255 . 225 , 193 . 35 . 16, 



219,17.24,0 

9170 DATA 25.193,16.209.201,33, 

11,72,6,8,197.6,4,17,7.0,197,22 

9,126,25 

9180 DATA 78,119,225,113,35,27, 

27,193,16,242.17.28,0,25.193,16 

.229,205,92,125 

9190 DATA 195,92,125,221.33,11. 

74,33,235,72,6,8, 197,6,8.197.22 

1,126,0,119 

9200 DATA 221.35,6,32,43,16,253 

,193,16,241,17,24,0,221.25.17,1 

,1,25,193 

9210 DATA 16,226,205,92,125,195 

.92,125 

Os valores nas linhas DATA sao pro- 
gramas em linguagem de miquina co- 
locados no alto da memdriacom POKE. 
Ali existem tres rotinas diferentes para 
rodar, espelhar e Golocar o caractere em 
tamanho real na tela, junto com o va- 
lor dos bytes. 

Tome cuidado na digita^io dessei; va- 
lores. Qualquer erro pode ser fatal. Por 
isso mesmo, o programa verifica as li- 
nhas DATA, provocando uma interrup- 
9ao caso detecte algum erro. 



USO DOS BLOCOS EM OUTROS PROGRAMAS 



O programa do artigo anterior j^ in- 
clui'a fun9des de gravai^ao e leitura em 
fita. For meio delas, podemos dispor de 
uma versao permanente dos blocos cria- 
dos. O USO correto deste programa per- 
mjte a cria^ao de muitos bancos cheios 
de novos caracteres. 

O Spectrum 6 capaz de utilizar 21 
UDG de cada vez. Se precisar de um nu- 
mero maior, voce teri duas op^Ses: criar 
vdrios bancos de mem6ria, ou redefinir 
o conjunto de blocos a todo instante. 
Explicaiemos mais tarde como isso i fei- 
to, mas, agora, adiantaremos alguns de- 
talhes. 

Desde que saiba como modificar o 
"apontador de UDG", vocS pode utili- 
zar quantos caracteres quiser, O apon- 
tador ^ uma variivel interna do Spec- 
trum que diz ao computador onde en- 
contrar os bytes correspondentes aos 
blocos definidos pelo usuirio. 

Mesmo que tenha gravado os bytes 
criados pelo programa a partir de um 
determinado enderc^o, vocS poderd tra- 
zer este conjunto de caracteres de volta 
da fita para qualquer outro enderego. 
Assim, se quiser usar tres diferentes ban- 
cos de caracteres ao mesmo tempo, bas- 
tard carregi-los em posicSes diferentes 
da memdria. 

Cada banco criado pelo programa 
tem 168 bytes de comprimento. For is- 
so, & necessdrio carregar cada conjunto 
de caracteres em posi?6cs que tenham 
uma distlncia de pelo menos 168 bytes 



entre si; caso contrdrio, um banco po- 
derd apagar parte de outro. Para carre- 
gar um conjunto de caracteres gravado 
pelo programa, digite: 



LOAD 



CODE (endere^o inicial) 



Independentemente do enderego a 
partir do qual o banco tenha side gra- 
vado, pode-se colocd-lo em qualquer 
parte da RAM. 

Para usar os bancos que carregou, 
modifique o valor do apontador de 
UDG. Em artigo posterior, trataremos 
do assunto em detalhes. 

£ importante adiantar, ainda, que ao 
usannos mais de um banco dc caracte- 
res em um programa deveremos prote- 
ger, por meio de um comando CLEAR, 
a irea de membria ocupada. Isso tam- 
b6m sera explicado mais tarde. 



Feitas as modificacdes, o programa 
terd virias novas fun?6es. Voce notari 
a primeira delas quando for guardar um 
bloco recdm-criado no banco: o progra- 
ma imprimird, ao lado do quadricuta- 
do, o valor do byte correspondente ao 
padrao de cada linha do bloco, acom- 
panhado do valor do byte de cor e do 
c6digo da cor de frente e de fundo da- 
quela linha. 

O programa completo permite ainda 
que vocS limpe o quadriculado por meio 
da tecia A, evitando o trabalho de apa- 
gar ponto por ponto. 

Outra alternativa interessante que o 
programa oferece ^ a de se obter, com 
a tecIa E, a imagem ao espelho do blo- 
co que estd no quadriculado. Essa fun- 
9ao facilita bastante a produ^io de de- 
senhos sim^tricos. 

Muito iJtil tamb^m € a possibilidade 
de rodar o bloco 90 graus, o que nos 
possibilita criar um torpedo, por exem- 
plo, e aponti-lo cm todas as dire^oes, 
usando a tecla V. 

Com a tecla I, pode-se inverter todo 

padr3o do bloco. Fressionando-a, os 
pontos acesos se apagam e os outros se 
acendem. A tecla Y tem o mesmo efci- 
to, mas troca a cor de frente com a cor 
de fundo, nio atuando, assim, no esta- 
do dos pontos. Em outras paJavras, o 

1 modi flea apenas os bytes do padrao do 
bloco, enquanto o Y modifica os bytes 
de cor — e esta € uma diferen^a muito 
importante, embora nio se reflita no 
efeito obtido. A ultima fun^o utiliza 
uma impressora para reproduzir o pa- 
drao do bloco que estd no quadricula- 
do, bem como os valores dos bytes de 
padrSo e cor. Para imprimir, pressiona- 
se a tecla L. 
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40 GOSUB 6000 

135 IF KS="V" THEN GOSUB 4000 :G 

OTO 200 

145 IF KS-'A" THEN GOSUB 4500 :G 

OTO 200 

155 IF KS-'Y" THEN GOSUB 5000 :G 

OTO 200 

165 IF KS-"L- THEN GOSUB 5500 :G 

OTO 200 

ISO IF KS-"I" THEN GOSUB 3000:G 

OTO 200 

190 IF KS="E'* THEN GOSUB 3500 :G 

OTO 200 

1550 GOSUB 9000: FOR I-O TO 7:Pt 

I) -0:FOR J=0 TO 7 

1595 II=64+I'«a:PHESET(12,II) :PR 

INT*1,P(I) 

1605 PRESET(56,II) :PBINT#1,C(I) 

: PRESET (176, II) :PRINT|1, (Ctl)-t 

C(I)AND15))/16:PHESET(2 20,II) :P 

RINT#1,C<I)AND15 

1610 NEXT I 

1615 II=II+10:PRESET(12.I1) :PRT 

NTi 1 " BYTE " 

1620 'preset (56, II) : PRINTIl , "COR 



1630 

ENTE 

1640 

NDO" 

1650 

Iquer 

1660 

60 

1670 

1680 

BF 

1690 

3000 

3010 

3020 

3500 



PRESET (164, II) :PH1NT#1, "FR 

PRESET(216,II) :PRINTtl. "FU 

PRESET (3 , 160} : PRINT#1 , "Qua 

tecla para continuar" 
XS»INKEYS:IF XS""" THEN 16 

LINE(0,64)-(88,160) ,15,8F 
LINEtl64,64}-{255.160) .15, 

GOSUB 9100: RETURN 

FOR r-0 TO 7:F0R J=0 TO 7 

B(I,J)-B(I,J)X0H1 

GOTO 1080 

FOR 1=0 TO 7: FOR J=0 TO 7 



3510 T(I,J)-B(I,7-J) 

3520 NEXT J, I: FOR 1-0 TO 7: FOR 

J="0 TO 7 

3530 B(I.J)'-T(I, J) ;GOTO 1080 

4000 FOR 1-0 TO 7: FOR J-0 TO 7 

4010 T(I,J)-B(J,7-I) 

4020 GOTO 3520 

4500 FOR 1=0 TO 7: FOR J-0 TO 7 

4510 B(I,J>=0 

4520 GOTO 1080 

5000 FOR 1=0 TO 7 

5010 Y1-C(I)AND15 

5020 Y2-{C<I>'Y1)/16 

5030 C{I)-Y1*16+Y2 

5040 NEXT I: FOB 1-0 TO 7 : FOB J- 

TO 7 

5050 GOTO 1080 

5500 LPRINT TAB (10) i "BYTE" ; 

5510 LPRINT TAB(15);" COR"; 

5S20 LPRINT TAB (20) ; 'FHENTE" ; 

5530 LPRINT TABC28) ; "FUNDO" 

5550 FOR 1-0 TO 7:P(I)-0:FOR J" 

TO 7 

5560 P(I)=P(I)+B{I.J)*2''(7-J) 

5570 IF B(I,J)=1 THEN LPRINT "X 

"; ELSE LPRINT " ." ; 

5580 NEXT J 

5590 LPRINT TAB (10) 

5600 LPRINT TAB (16) 

5610 LPRINT TABC22) 

AND15))i/16; 

5620 LPBINT TABt28) 

5630 NEXT I 

5640 LPRINT: LPRINT: LPRINT 

5650 RETURN 

6000 FOB 1-0 TO 7 

6010 C(I) =C*16+F:NEXT: 

6020 RETURN 

NIo hS fun^ao automitica que per- 
mita aproveitamento do banco de blo- 
cos gravado em fita. Para issc, precisa- 



;P(I) : 
;C{1) ! 
; (C{I)-(C(I) 

;C(I)AND15 



mos da ajuda de algumas linhas escri- 
tas em BASIC. 

A elaboragSo de um programa desse 
tipo exige que se conhe^a bem a organi- 
zagao da memdria de video do MSX. 
Em artigo future trataremos deste as- 
sunto em detalhes. 



ALGUMAS INFORMACOES 



Para os usuirios mais avan(;ados, 
adiantamos que um banco gravado pe- 
lo programa pode ser lido a qualquer 
momento. Inkialmenie, deve-se prote- 
ger o alto da mem6ria com; 

CLEAR 200. tHDOOO 

Em seguida, carrega-se o banco di- 
gitando: 

BLOAD -CAS:" 

Com isso, o banco volta k mesma po- 
si?ao de mem6ria onde foi criado. Os oi- 
to bytes correspondentes ao padrao do 
bloco guardado na posi^ao X podem, 
entao, ser encontrados a partir do se- 
guinte endere^o: 

LHDIOO + x*8 

E OS oito bytes de cor do bloco guar- 
dado na posigao X do banco se encon- 
tram a partir de: 

LHEIOO + X*8 

O passo seguinte consiste em trans- 
ferir, com a ajuda de VPOKE, os bytes 
de padrao para a tabela de padroes — 
BASE(12> — e OS bytes de cor para a ta- 
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bela de cores — BASE(ll). Maiores es- 

clarecimentos serio dados num pr6ximo 
artigo, 

O programa conta agora com vArias 
outras fungoes de edigSo. Uma delas ^ 
a de limpeza do quadriculado, disponi- 
vel pela tecla C. Jd nao sera preciso, 
portanto, apagar ponto por ponto. 

A tecla U tern funpao semelhante, 
mas apaga apenas o oitavo bit, que con- 
trola grupo de cores. 

Duas outras novas funfoes contri- 
buem para diminuir um pouco as difi- 
cuidades. Pressionando a tecla J, todo 
o padrao se desloca para a esquerda; a 
ktra K tern efeito contririo. Utilizando 
essas teclas, pontes que estavam em co- 
lunas impares passam a ocupar colunas 
pares e vice-versa. Nao havendo dois 
pontos adjacentes, o procedimento in- 
vertera a cor dos pontos. 

Para criar figuras simetricas, temos 
a tecla E, que produz a imagem ao es- 
pelho do bloco que estd no quadricula- 
do, Ao usa-la, tenha sempre em mente 
as regras de definigao de cores. Para ro- 
dar o padrao do quadriculado 90 graus, 
pressione a tecla V, Essas fungoes devem 
ser combinadas com outras, uma vez 
que modificam o oitavo bit, que nao 
participa do padrao, mas da determina- 
930 de cores. 

Dispomos ainda de duas funfoes de 
inversao: apagar o que estd aceso e vice- 



versa, A tecla I inverte todo o bloco, en- 
quanto a tecla O se restringe ao oitavo 
bit. O programa tamb^m exige os valo- 
res dos bytes, para quern quiser usi-los 
em linhas DATA. A tecla D mostra uma 
linha com os dados de um bloco, no ro- 
dape da tela. Tendo uma impressora, os 
usuArios do Apple podem obter uma c6- 
pia usando W, 



40 DIM T(8,9) 








135 IF K$ - -V" 


THEN 


GOSUB 


40 


00: GOTO 50 








145 IF K$ - -U" 


THEN 


LL = 7 


G 


OSUB 2500: GOTO 


50 






155 IF KS " "J' 


THEN 


GOSUB 


45 


00 : GOTO 50 








160 IF KS - -I" 


THEN 


LL = 


G 


OSUB 3000: GOTO 


50 






165 IF KS = "K" 


THEN 


GOSUB 


50 


00: OOTO 50 








170 IF KS =■ 'C" 


THEN 


LL - 


G 


OSUB 2500: GOTO 


50 






175 IF KS = "D" 


THEN 


G03UB 


60 


00; GOTO 5 








IBO IF K$ - "0- 


THEN 


LL - 7 


G 


OSUB 3000 : GOTO 


5 






IBS IF KS - "W 


THEN 


PR* 1 


G 


OTO 6000: PRI 0: 


OOTO 


50 




190 IF K$ = "E' 


THEN 


GOSUB 


35 


00: GOTO 50 








25 00 FOR 1=0 


TO 7: 


FOR J = 


L 


L TO ; 








2510 B(I.J) - 0: 


GOTO 


1020 




3000 FOR 1=0 


TO 7 






3005 FOR J - LL 


TO 7 






3010 IF BCI.J) 


= THEN B(l 


J) 


= 1 : GOTO lOZO 








3020 B(l.J) = 0: 


GOTO 


1020 




3500 FOR 1=0 


TO 7 : 


FOR J = 






TO 6 




3510 T(l.J) = Ba.6 - J): NEXT 

3 5 20 FOfi I = TO 7: FOR J = 

TO 6 
3530 B(I,J) = T(I,J>: GOTO 1020 
4000 FOR I = W z': FOR J = 

TO 7 
4010 T(I.J) = B(J.7 - I): NEXT 
J, I 
4020 FOR I = TO 7: FOR J = 

TO 7 
4030 B(T,J) = T(I,J): GOTO 1020 
4500 FOR I = TO 7: FOR J = 

TO 6 
4510 B(I,J) = B(1,,J 4- U: GOTO 
1020 
5000 FOR T = TO 7 : FOR J = 

TO 6 
5010 T(I,7 - J) = B[1.6 - J): N 
EXT J, I 
5020 FOR I " TO 7: FOR J = 

TO 6 
5030 BU.J) = T(I,J): GOTO 1020 
6000 HOME ; UTAB 22: INPUT "QU 
AL O NUMERO DO BLOCO ?";N: IF N 

> 320 THEN 1000 
60 20 HOME 

60 30 VTAB 21; PRINT "DATA "; 
6040 FOR I - TO 7: PRINT PE 
EK <E + N * 8 + T) : : IF J < > 
7 THEN PRINT " ," ; 
6050 NEXT : VTAB 23: GET X$ 
6060 HOME ; RETURN 



USO DOS BLOCOS EM OUTROS PROGRAMAS 



Al^m dos problemas na exibigao de 
cores, o Apple tern uma organizagao de 
memiria de video um tanto complica- 
da. Deixaremos, assim, paraum artigo 
futuro as expHca^oes sobre o uso dos 
blocos em outros programas. 



No artigo anterior vimos a primeira 
metade de um programa cujo objetivo 
i facilitar a cria?ao de blocos grificos, 
Apresentamos aqui a outra metade, que 
acrescenta ao programa novos recursos 
de edi^io 

Inicialmente, carregue o programa 
antigo e adicione as linhas: 

30 T=0:FOR K=0 TO 14:READ N:T=T 
+N:POKE K+31100.N:NEXT:READC:IF 

TOC THEN END 
40 T-0: FOR K"0 TO 84:READ N:T= 
T+N:POKE 31 150+K , N : NEXT : READ C: 
IF TOC THEN END 
70 DATA 141,72,142,123,12,236.1 
29,237.193,140,123,84,38,24 7,57 
.1974 

80 DATA 141,22,142,123.84.51.67 
, 198 , 3 , 166 . 1 30 , 167 , 194 , 90 , 38 . 24 
9,51,70,140,12 3,12,38,240,5 7,18 
9.179.237.52 

90 DATA 6,31.3.142.123,14.134,3 
. 183. 121. 68. 230, 192. 134. 8. 74, B8 



iU 




As novas rotLnas acrcscenlam virias fuD^Aes ao 

programa gerador de griflcos; eotre elas, a rotafflo de figuras. 



Com D programa completo, voc£ podeti tamMm 
Inverter seus grAfkos, ulilizando a cor do fiindo da tela. 



.73,125,121.23.39.4,88,7 3.126,4 

.68 

100 DATA 102,132,125,121.23.39, 

3,68,102,132,77,38,230,48,31,12 

2,121.68,38,219,48,6,140.123,86 

,38,207,53.192,8285 

170 PRINT" JOYSTICK OU TECLADO ( 

J OU T)?"; 

100 A3 = JNKEV5:IF' A5<>"J' AND A$ 

<>"T" THEN 180 

190 IF AS-'J" THEN JY-1 

350 IF JV-l THEN GOSUB 1000 ELS 

E GOSUB 1500 

1000 PUT(Xl.'n)-CXl+5*T-l,Yl+4) 

.CI, NOT 

1010 IF {PEEK (65280) AND l)-0 GO 

SUB 2000 

1020 IF JOYSTK(1)-0 THEN Y-Y-l 

1030 IF JOySTKtl)-63 THEN Y-Y+1 

1040 IF JOYSTK(0)-0 THEN X-X-T 

1050 IF JOYSTK(0)«=63 THEN X-X+T 

1060 BETURN 

2100 GETC216,70)'(239.93) ,A 

2110 GOSUB 3000;aOTO 2070 

2200 AS-INKEYS;IF ASO'S" AND A 

S<>"P' THEN 2200 

2210 CLSrDN=0:IF A$=-P" THEN DN 

—2 

2220 FOR K"0 TO 14 : FOR H-0 TO 2 

2230 PRINT |DN,PEEKCVARPTR(A(0) 

)+K*3*R) ; : NEXT ;PHINT#DN: NEXT 

2240 IF DN<0 THEN 2260 

2250 AS-INKEYSilF A5='"' THEN 22 

50 

2260 FOR K-15 TO 23: FOB P-0 TO 

2 
2270 PRINT |DN,PEEK(VARPTR(A(0] 
)+K*3+B) i rNEXTrPBINT tDN:NEXT 
2280 AS = INKEYS:IF AS=''" AND DN- 
THEN 2280 

2290 SCREEN 1. ST: RETURN 
2600 POKE 30999,T-liN-USR2(VARP 
TR(AfO))) 

2S10 GOSUB 3000:GOTO 2070 
2900 POKE 30999,T-1:N-USH1(VARP 
TR(A{0))) 
2910 GOSUB 3000:GOTO 2070 



Complete a linha 10 com: 

:DEFUSR1=31100:DEFUSR2=31150 

Se exccutarmos o programa agora, 
poderemos utilizar as novas funipSes. 
Mas 6 conveniente, antes de qualquer 
coisa, verificar se hi algum erro em li- 
nhas DATA. 

Tres fun^Oes foram soraadas ao re- 
pert6rio do programa; espelhar, inver- 
ter e rodar o bloco grdfico, 

Para obter a imagem do bloco ao es- 
pelho, basta pressionar a tecla M. O ca- 
ractere 6 invertido da esquerda para a 
direita. Essa funpao 6 muito util quan- 
do utilizamos dois blocos justapostos 
para produzir uma figura maior e sitni- 
trica. Basta criax um dos caracteres, 
guardS-lo no banco e, em seguida, ob- 
ter a imagem ao espelho. 

A fun^io de roia?ao 6 similar. Aper- 
tando R, rodamos o bloco 180 graus. 
Podemos, assim, mover a figura para ci- 
ma e para baixo, o que nos permite usar 
o gerador para criar uma versSo do blo- 
co "de cabe?a para baixo". 

A inversSo da cor de todos os pon- 
tes constitui outra nova op^ao ofereci- 
da pelo programa. Em PM0DE4, o 
efeito i ficil de prever: o preto se torna 
verde (ou cinza) e vice-versa. Em 
PMODE3, azul e amarelo sao inverti- 
dos (o que 6 azul fica amarelo e vice- 
versa). O mesmo ocorre com vermelho 
e verde, cinza e laranja, ciano e 
magenta. 

As inversOes de cor provocam altera- 
efies surprecndentes no aspecto de cer- 
tos blocos. Uma vez que nos acostume- 
mos com as regras de mudan^a de cor, 
a fungio serd muito util. 

t, posslvel, tamb6m, cxecutar uma 



mudan^a de cot durante a edicSo, pres- 
sionando-se a tecla V. A alteragao, no 
caso, resulta de uma inversao no tipo de 
tela — SCREEN — que estiver sendo 
utilizada. 

Outro novo recurso do programa, a 
impressao dos valores dos bytes dos ca- 
racteres guardados no banco, mostra-se 
especialmente util quando se pretende 
colocar tais valores em linhas DATA. A 
tecla P ativa a fun^to; os valores podem 
ser exibtdos na tela ou, entao, copiados 
por uma impressora. Ap6s teclarmos P, 
o programa espera que pressionemos P 
ou S. P utiliza a impressora e S, a tela. 



USD DOS BLOCOS EM OUTROS PROGRAMAS 



Para utilizar os blocos gravados em 
fita dentro de um outro programa, car- 
regue o conteudo da fita e, em seguida, 
guarde OS padroes em matrlzes com 
CLOADM e GET. 

Infelizmente, voce precisari repetir o 
procedimento sempre que quiser usar o 
programa com os blocos gr^ficos ante- 
riormente gravados. 

Para evitar o trabalho de ler os blo- 
cos da fita todas as vezes, &6 hd uma al- 
ternativa: transferir os numeros corres- 
pondentes aos blocos para linhas DA- 
TA e incorpord-las ao programs em 
questao. 

Assim, embora nio pare^a, pode ser 
mais conveniente recorrer i fun^ao de 
impressio paia digitar linhas DATA. Os 
numeros ali contidos deverSo ser colo- 
cados pelo programa, usando POKE, lu 
tela, e transferidos para matrizcs por co- 
mandos GET. Depois disso, os blocos 
estarao disponiveis por meio de coman- 
dos PUT. 
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O BASIC 

N A MEMO^ A 



COMO E ARMAZENADO 



UM PROGRAMA EM BASIC? 

USQ DO PEEK 

QUE SIGNIFICAM 



OS C6DIG0S 






Como computador armazena um 
programa em BASIC na memoria? Satlsfapa 
sua curiosidade: com um programa bem 
simples, voce poderS listar os 
codlgos secretos usados por seu micro. 



]A tivemos a oportunidade de exami- 
nar como se organiza o espaijo total de 
memoria dos microcomputadores (veja 
artigo da paging 174). Em geral este es- 
pafo divide-se internamente em uma se- 
rie de Areas, cada qua) com uma fuoijao 
especifica. 

Uma dessas ireas da meni6ria RAM 
e i^servada para os programas em BASIC 
do usudrio. Eles comegam sempre em 
um mesmo enderepo absolute, cujo va- 
lor varia conforme a linha do micro. As- 
sim, quando o computador recebe um 
comando RUN, LIST ou LLIST, por 
exemplo, jd "sal^e" onde o programa se 
inicia, podendo comepar a listi-lo ou 
interpreti-lo. Em muitos computadores, 
esse endere?o de inicJo esti contido em 
um par de apontadores da RAM, em um 
lugar prefixado. Altera ndo-se seus va- 
lores com alguns POKE, pode-se mudar 
local da memoria onde o programa em 
BASIC esti armazenado. 

A listagem dos c6digos internos que 
seu microcomputador utiliza para arma- 
zenar esses programas constJtui um"6ti- 
mo exercicio para quern esta comepan- 
do a aprender programafao em lingua- 
gem de maquina. 



PflOGRAMA 



Nesle artigo, apresentaremos um pro- 
grama bem simples, baseado no coman- 
do PEEK, que nos permite examinar os 
codigos numericos decimals contidos 
nas locagoes das mem6rias ROM ou 
RAM, e seu equlvalente em ASCII. Vo- 
ce podera, assim, identificar as partes 
dos programas que contem codigos di- 
ferentes do ASCII. 

Os computadores de algumas linhas 
ja dispSem de programas-monitores re- 
sidentes, que servem perfeiiamente pa- 
ra.este propdsito (6 o caso do TRS-80, 



do Apple II e do TK-2000). Por isso. os 
programas seguintes destinam-se apenas 
aos micros das linhas ZX-Sl , Spectrum, 
TRS-Cotor e MSX, que nao dispoem 
desse recurso. 



am 



10 FOR r-7681 TO 7951 STEP 5 

20 PRINT 1;TAB(6) ; ' : " ; 

30 FOR J-I TO 1+4: PRINT USING 

"Iff ";PEEK{J) ! iNEXT J 

60 PRINT TAB (25) r 

70 FOR J-I TO 1+4 

80 IF PEEKCJ)>31 AND PEEKtJK 

129 PRINT CHR@(PEEK(J)) i ELSE 

PRINT " "i 

120 NEXT J: PRINT: NEXT I 

O programa acima funciona no TRS- 
Color. Para o MSX, modifique a linha 
10 para: 

10 FOR 1—32765 TO -32595 STEP 
5 



10 FOR 1=23755 TO 23925 STEP 

5 

20 PRINT i;TAB 6:":"; 

30 FOR j-I TO i+4: PRINT PEEK 

JiiNEXT j 

60 PftINT TABC25) ; 

70 FOR j-i TO i+4 

80 IF PEEK j>31 AND PEEK j<96 

THEN GOTO 110 

90 PRINT CHRS PEEK { j) r :G0T0 120 

110 PRINT " ": 

120 NEXT j 

130 PRINT 

140 NEXT 1 



120 NEXT J 
130 PRINT 
140 NEXT I 

O lafo FOR. ..NEXT que come^a na 
linha 10 coloca o eRdere<;o absoluto da 
locallzai^ao da memoria a ser listada, a 
partir do ponto inicial de todo progra- 
ma BASIC, em incrementos de 5. A li- 
nha 20 imprime o enderei^o absoluto da 
primeira memoria de um grupo de 5, en- 
quanto os lapos das linhas 30 e 70 se en- 
carregam, respectivamente, da impres- 
sio do conteudo numerico e dos carac- 
teres ASCII correspondentes. 

Observe que as palavras-chave do 
BASIC nao sao armazenadas caractere 
por caractere, mas sim como codigos 
numericos de I byte — os chamados to- 
kens, em inglgs. Cada codigo correspon- 
de a uma das palavras reservadas do 
BASIC, existentes no manual do micro. 
Eles sao traduzidos de volta para as 
palavras-chave quando o programa e lis- 
tado com LIST ou LLIST. Armazenam- 
se em ASCII, por sua vez, as constan- 
tes, nomes de variiveis, caracteres de 
pontuagao, simbolos matemattcos e tu- 
do o que estiver entre aspas. 

Como exercicio, procure identificar 
OS c6digos das palavras reservadas no 
programa listado. 



10 

5 

20 

3D 

40 

50 

60 

70 

80 



FOR 1-16509 



PRINT I [TAB 6 
FOB J=I TO 1+4 
PRINT PEEK J; 
NEXT J 

PRINT TAB 25; 
FOR J=I TO 1+4 
IF PEEK J>31 AND 

THEN GOTO 110 

90 PRINT CHRS PEEK (J) 

100 GOTO 120 

110 PRINT " '; 




PEEK 



Ill 



'6 PHOGRAMACAODUOGO, 




Ajude uma cobra faminta a encontrar 
alimento. Enquanto vai abocanhando os 
numeros que o computador coloca na 
tela, desnutrido animal se transforma, 
aos poucos, numa gigantesca serpents. 



O jogo da cobra consiste num tipo 
classico de videogame, de regras simples 
mas muito interessante e cheio de sur- 
presas, Al^m disso, sua programa^ao 
dispensa o uso de linguagem de mdqui- 
na — o jogo desafia o tempo, sendo um 
dos mais facilmente programdveis em 
BASIC. 



OJOGO 



O objetivo do jogo i ajudar uma co- 
bra faminta a encontrar o alimento es- 
palhado ao acaso pela tela, na forma de 
numeros ou blocos. O valor desses nu- 
meros diminui k medida que o tempo 
passa; assim, quanto mais lento for o jo- 
gador, menor seu total de pontos. Se ele 
demorar demais, o numero que estava 
na tela chega a zero e desaparece; outro 
numero surge em positjao diferente. Ca- 
da numero engolido pela serpente au- 
menta seu comprimento proporcional- 
mente ao valor ingerido. 

Devemos to mar cuidado para nao 
deixar a cobra ultrapassar a moldura da 
tela ou passar sobre si mesraa — o que 
fica cada vez mais diffcil, conforme ela 
cresce. Se cruzarmos a margem ou o 
corpo da cobra, o jogo termina. A pa- 
lavra "FIM" ou "FORA" e, entao, exi- 
bida Veirias vezes na tela. 



10 BORDER 1: PAPEH 7: INK 9; 

CLS 

20 LET ha-O 

30 DIM a{570.2) 
100 LET s-O 

110 LET 3(1,1)=10: LET s{l,Z)= 
14 

120 LET B(2,l)-llr LET a(2,2)- 
14 



130 LET 3(3,1)=12: LET 3t3,2)- 
14 

135 GOSUB 1500 
140 LET t=l: LET h=3 
145 LET yv=l : LET xv=0 
150 FOR n=l TO 3i PRINT PAPER 
4;AT a(n,l) ,a{n,2) ;-*": NEXT n 
160 LET y=12: LET x-14 
165 LET p=0 
170 GOSUB 3 000 

190 IF ATTR (y,K)<>56 AND ATTR 
(y,x)C128 THEN GOTO 2000 
200 L»;T h = h+l: IF h = 501 THEN 
LET h=l 

210 PRINT PAPEH 
220 LET a(h,l)=y; 
230 PRINT AT a (t . 1 ) , a ( t , 2) ; 
CHRS 32 

240 LET t=t+l: IF t-5Ql THEN 
LET t=l 

250 IF p-0 THEN LET p=INT ( 
RND*9)+1: LET fY=TNT (RND*19)+ 
2: LET fx-INT {RND''30)+1: IF 
ATTR (fv,fx)<>56 THEN LET p=0 
: GOTO 250 

260 PRINT PAPER INT (p/2); 
FLASH liAT fy,fx;p 
270 IF RND<,98 THEN GOTO 290 



4 ; AT y , X i " I " 
LET a(h,2)=x 



280 LET p=p-l: IF p=0 THEN 

PRINT AT fy.fxjCHBS 32 

290 IF yOfy OR xOfx 

THEN GOTO 170 

300 LET B=S+pr PRINT 

PAPER 4; AT y.x;"!" ; PR 

INT PAPER 6; AT 0,6; a 

310 FOR n-1 TO p 

320 GOSUB 1000 

325 IF ATTR (y.x)<>56 

THEN GOTO 2000 

330 LET h-h+1 : IF h=501 

THEN LET h=l 

340 LET B(h.l)=y: LET 

a(h,2)=x 

350 PRINT PAPER 4;AT a(h,l),B 

(h , 2) ; '#" 

3S5 FOR tn-1 TO 10: NEXT in 

360 NEXT n 

500 GOTO 165 
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UMA VERSAO BASIC 



DO JOGO DA COBRA 



ESPALHE OS NUMERQS E FAQA 

A COBRA ABOCANHA-LOS 

COMO A FIGURA CRESCE 



LET yv--l : 



THEN LET yv-l : 
THEN LET XV--1 : 



THEN LET xv-l : 



LET X"X+xv; HE 



1000 LET aS-INKEV3 
1010 IF a$-"q" THEN 

LET xv-0 
1020 IF aS-'a' 
LET xv-0 
1030 IF aS-'o" 

LET yv-O 
1040 IF a$-'p" 
LET yv-O 
1050 LET y-y+yvi 

TUBN 

1500 FOB n-22560 TO 225 

91; POKE n,16: POKE n+6 

40.16: NEXT n 

1610 FOB n-22592 TO 225 

92+32*19 STEP 32: POKE 
n.l6: POKE n+31, 16: NE 

XT n 
1520 PRINT PAPER liAT 0,0; "SCO 
RE ": PAPER 6is; PAPER 1 ; TAB 14 
:"RECORDE "; PAPER 6; ha; PAPER 

IjTAB 31;- " 
1590 RETURN 
2000 PRINT AT 



0,0; 



FOR n-1 TO 
PAPER 2; IN 



88: PRINT FLASH 1; 
K 6!"F0RA": PAPER 6; INK 2;"F0B 
A";: SOUND .005,60-n: NEXT n 
2010 IF a>h8 THEN LET ha-B 
2020 CLS ; PRINT AT 8.10; "SCORE 
: ";s;AT 11 , 8; "HECOHDE: ';ha 
2030 PRINT INVERSE 1 ;AT 16.2;" 
Qualquer tecla para recomecar* 
204O PAUSE 0: CLS : GOTO 100 

A linha 10 cuida das cores da mol- 
dura, do fuQdo e dos caracteres. Tam- 
b^m limpa a tela. As linhas 20 e 100 ze- 
ram o recorde e o score. 

A linha 30 DIMensiona a matriz S, 
usada para armazenar as coordenadas 
da cobra. Inicialmente, esta ficard nas 
coordenadas (10,14). (11,14), (12,14), 
colocada nos primeiros elementos da 
matriz pelas linhas 110 e 130. 

A linha 135 chama uma sub-rotina 
que prepara a tela — linha 1500. Para 
o desenho da moldura, os valores s3o 
colocados na tabeia de atributos com o 
auxiUo de POKE. A linha 1500 tra?a 
duas linhas na tela: uma em cima e ou- 
tra embaixo; a 1510 desenha as linhas 
laterals. A linha 1520 escreve o recorde 
e o score. 

A linha 140 determina onde estao a 
cabe^ae o rabo da cobra — h e I, res- 
pectivamcnte — dentro da matriz s. Es- 
sas variiveis indicam ao computador os 
elementos da matriz em que as coorde- 
nadas da cabe^a e do final do corpo da 



cobra podem ser encontradas. Elas sao 
chamadas de "apontadores" (pointers). 
Conforme a cobra se move, o compu- 
tador reajusta os dois apontadores e co- 
loca as novas coordenadas no elcmento 
adequado da matriz. 



MOVIMENTO E DIREgAO 



As varidveis xv e jt indicam a dire- 
fao em que esta indo a cobra. Elas po- 
dem assumir trSs valores diferentes: 0, 
quando a cobra nao esta indo naquela 
dire9ao; 1 , quando a cobra se dirige pa- 
ra a direita ou para baixo; e - 1 , quan- 
do a cobra estd seguindo para a esquer- 
da ou para cima, Pode-se ver, desse mo- 
do, que a linha 145 faz com que a ser- 
pente siga para cima no comedo do jogo. 

A linha 150 desenha a cobra, inicial- 
mente, com apenas tres caracteres. A 
posj^ao atual da cabetja 6 dada por x e 
y, variiveis tamb^m usadas para deiec- 
tar colisoes. A linha 160 posiciona a ca- 
bega em (14,12). A linha 165 faz com 
que o valor do niimero a ser mostrado 
— p — seja zero. 

A linha 170 chama a sub-rotina que 
movimenta o cursor — linha 1000. Q e 
A movimentam a serpente na vertical, 
enquanto O e P o fazem na horizontal. 
Pressicnando essas teclas, alteramos os 
valores de xv e yv; a linha 1050 modifi- 
ca a posigao da cabega adicionando xv 
e jT a X e y. 

Quando termina a sub-rotina, o pro- 
grama retorna para a linha 190, que usa 
o comando ATTR para verificar se a ca- 
be^a estd sendo colocada em uma posi- 
^ao que nao 6 de cor branca — a cor do 
fundo — ou nao i cintilante — como 
sao OS numeros. Se essas duas condifoes 
nao forem satisfeitas, a cobra deve ter 
cruzado a moidura ou seu prdprio cor- 
po. Neste caso, o programa vai para a 
linha 2O0O, inicio da sub-rotina que in- 
forma o final do jogo, 

Se a nova posi^So da cabefa for vd- 
lida, programa prossegue na linha 200, 
que incrementa o apontador da cabe<;a. 
Se apontador indica um elemento da 
matriz maior do que sua dimensao, o 
apontador passa a valer 1. A linha 210 
desenha a cabe^a em sua nova posi9ao 
e a linha 220 coloca as coordenadas des- 
ta posifao na matriz s, no elemento in- 
dicado pelo apontador da cabe^a — h, 
O rabo da cobra e mantido no tamanho 
correto por meio da impressao de espa- 
?os em branco que apagam os caracte- 
res das posi^oes jd ocupadas. Isso € fei- 
to pela linha 230, que obt6m as coorde- 
nadas corretas na matriz s. A linha 240, 
por sua vez, aumenta o valor do apon- 
tador da cauda — t — verificando se ele 



ultrapassou a dimensao da matriz. 

Se nSo houver um numero na tela pa- 
ra a cobra comer, a linha 250 escolhe um 
— p — , com posi?to e valor aIeat6rios. 
Se as coordenadas escolhidas nao cor- 
respondem a uma irea em branco da te- 
la — ATTR <> 56 — , o valor e a posi- 
c5o de p sao escolhidos novamente. A 
linha 260 cscreve o numero na tela cin- 
tilando, isto 6, com atributo FLASH. 

A medida que o tempo passa, o va- 
lor do niimero que estd na tela vai di- 
minuindo. A linha 270, que compara 
um niimero aleatbrio com 0.98, intro- 
du2 um certo elemento de acaso na ve- 
locidade com que ocorre a diminui<;3o. 
Na maioria dos casos, a linha que dimi- 
nui o valor do numero — 280 — ^ pula- 
da. Essa linha verifica se o valor de p 
ainda nao chegou a zero, logo apos 
subtrair-lhe 1 — em case afirmativo, um 
espago em branco & colocado no lugar 
do numero na tela. Se a cabe^a da co- 
bra nao esta na mesma posicao que o 
numero, completa-se o lafo e o progra- 
ma volta a linha 170. 

Se a serpente engolir o numero, o 
programa segue na linha 300, que soma 
numero engolido ao score. Este e co- 
locado na tela, assim como a cabega. 

O lago FOR.. .NEXT das linhas 310 
a 360 adiciona ao corpo da cobra uma 
quantidade de caracteres igual ao valor 
ingerido. A cada volta do lago, a linha 
320 chama a rotina de movimentagao do 
cursor; a linha 325 verifica se a cabega 
ocupa uma posigao legal; a linha 330 in- 
crementa valor do apontador da ca- 
bega; a linha 340 coloca a nova posigao 
na matriz s, e a linha 350 imprime a ca- 
bega. Nenhum caractere 6 apagado, co- 
mo aconteceria normalmente, servindo 
todos para acrescenlar segmentos ao 
corpo da cobra. Como estes tamb^m 
nunca sao apagados, a cobra teria mo- 
vimentos bem mais rdpidos, se nao hou- 
vesse atraso provocado pela linha 355. 

A porgao final do programa — que 
comega na linha 2000 — ? a sub-rotina 
que cuida do encerramento do jogo. A 
linha 2000 escreve vdrios "FORA" na 
tela, ao mesmo tempo que emite uma s^- 
rie de sons. A linha 2010 atualiza o va- 
lor do recorde, se este foi batido, e a li- 
nha 2020 informa o placar. As linhas 
2030 e 2040 permitem que o jogador ini- 
cie uma nova partida. 



5 SCREEN 1:KEY OFF 

10 M-5l2rDIMB(M) 

15 RH-HND(-TIME) 

20 L=3;G0KUB 600 

30 GOTO 500 

100 K-STIOK(O) :IF K=0 THEN K-L 

110 NP=B(H)+32*{K-I]-32*(K-5)-C 



K-3)+(K-?) 
120 TE-VPEEK(NP) 

130 IF TE=255 OR TE=HC OR TE=BC 
OH NP<BASE(5}+32 THEN WPOKE NP 
,HC:E=1 

140 L=-K:F0B 1 = 1 TO 50:NEXT:H£TU 
RN 
200 R-1NT(RND(1)*9)+1:RX-INT{RN 

D(l)*13)+2:HY=INT(RND(ll*29)+2: 

BP-BX*.?2+RY 

210 IF VPEEK CBASE(5>+RP}<>32 TH 

EN 200 

220 VPOKE BASE(5)+RP,48+R:P-1:R 

ETtfBN 

250 R=H-1:IF R-0 THEN VPOKE BAS 

E(5) +RP, 32;P=0:HETURN ELSE VPOK 

E BASE (5}+[iP,48+R: RETURN 

300 SC-SC+Rt LOCATE 22,0:PRINT S 

C; :P-0 

310 SL=SL+1:VP0KE MP , BC 

320 H=H-1:IF H=0 THEN H=M 

330 B(H)=NP 

340 FOR J=l TO R 

350 PLAY"L64CEF" 

360 GOSUB 100: IF E=] THEN 800 

370 H=H-1:IF H-0 THEN H=M 

3fl0 B (H)=NP:UPOKF. NP.BC 

390 NEXT 

400 UPOKE NP.HC; RETURN 

5Q0 IF P=0 THEN GOSUB ZOO ELSE 

IF INT(RNDfl)*150)+l<SL THEN ClO 

SUB 250 

510 GOSUB 100: IF E=l THEN 600 

520 IF TE=48+R THEN VPOKE B(H), 

BCr GOSUB 300 

530 VPOKE B(H) ,BC:UPOKE B (T5 . 32 

540 H-H-];rF H^O THEN H=M 

550 T-T-1:IF T=0 THEN T=M 

560 B(H)=NP:VPOKE NP , HC 

570 GOTO 500 

600 BG=TNT(RND(1)*13)+1:FG=INT{ 

RND{1)*13+1) :P=0 :SC=0:SL=1 : E=0 

610 IF BG=FG THEN 600 

620 COLOR :5,BG,BC:CLS 

630 VPOKE BASE t6)+4. 240+BG 

640 VPOKE BASE(6)+3I,FG*16+FG 

650 FOR J-0 TO 31 :PLAY"T255L640 

4AG": VPOKE BASE (5) +J , 255 :UPOKE 

BASE(.5)+J + 736,255:NEXT: FOR J-32 

TO 736 STEP 32 : PLAY"02DA" ; VPOK 
E BASE (5) +J, 255: VPOKE BASEC5)+3 
1+J, 255:MEXT 

660 LOCATE 3 , : PRINT'RECORDE^" ; 
HS;: PRINT TAB (15) i "SCORE = ' ; 
670 HC=2iBC=2l5:T-3:H=l 
680 VPOKE BASE (6) ,FG*16+BG 
690 VPOKE BASE(6)+26,FG*16+BG 
700 B(l)= BASE(5>+239:VPOKE B(l 
) .HC 

710 B(2)=B(l)+32:VPOKE B<2>,BC 
720 B(3)=B{2)+32:VPOKE BC3),BC 
730 RETURN 

BOO COLOR 15.lNT(PND(l)«14)-t-l:C 
LS:PLAy''OlACDEFGACDEFG":FOR K = l 

TO 408: PRINT "FIM ";: NEXT : PLAY 
"04ABCEDFG03ABCDEFG02ABCDEFG" 
810 IF HS<SC THEN HS-SC 
820 COLOR 1,15,15:CLS:L0CATE 9, 
erPRlNT"SCOHE -';SC:LOCATE 8,12 
; PRIMT"HECORDE ='';HS 
830 A$=INKEYS: LOCATE 3,20:PHINT 
'<RETURN> para continuar" 



PMOGRAMA^OMJOG 



840 A3=INKEY$:IF AS<>CHRS[)3) T 
HEN 840 ELSE 20 

Ao contrario de outros jogos vistos 
em INPUT, para os quais utilizamos a 
tela gr^fica, optamos aqui pela tela de 
textos de 32 colunas, ja que a cobra e 
feita de caracteres. 

A linha 5 seleciona a tela e desUga o 
menu das teclas de fun?6es da parte in- 
ferior da tela, A linha 10 dimensiona a 
matrtz B de maneira que esta acomode 
no miximo 512 caracteres — o maior ta- 
manho que a cobra podera ter. Note que 
OS elementos dessa matriz nao corres- 
pondera as posigoes de caracteres na te- 
la. Cada um deles contem as coordena- 
das de uma parte da cobra. A Hnha 15 
"da a partida" no geradof de niimeros 
randomicos; a 20 manda o programa 
para a linha 600, que prepara as condi- 
Qoes iniciais do jogo. 

Na linha 600, BG e a cor de fundo da 
tela e FG, a cor da moldura, hem como 
da cobra. P=0 significa que nenhum nii- 
raero estd sendo exibido; SC = 0, que o 
score e zero; SL=0 quer dizer que o ni- 
val de dificuldade 6 zero e E=0 informa 
ao computador que a cobra permanece 
dentro dos limites da tela, nao tendo cru- 
zado nem a moldura, nem seu pr6prio 
corpo. Todas essas varidve4s sao utiliza- 
das ao longo do programa para que cer- 
tas sub-rotinas sejam chamadas no mo- 
mento adequado, 

A linha 610 verifica se a cor de fun- 
do e igual a da moldura — em caso afir- 
mativo, duas novas cores slo escolhidas. 
A linha 620 seleciona as cores da tela — 
caracteres brancos, fundo e bordas de 
acordo com BG, Alem disso, limpa a 
tela. 

Na linha 630, um comando VPOKE 
assegura que o caractere de espago em 
branco — cddigo 32 — tenha cor de 
frente branca e cor de fundo igual a BG. 



Na linha 640, a mesma tecnica e erapre- 
gada para fazer com que o caractere 
255, usado para desenhar a moldura, te- 
nha cor de frente e de fundo igual a FG. 
A linha 650 desenha a moldura, enquan- 
to emite alguns sons. A linha 660 mos- 
tra o placar. 

Na linha 670, HC e o codigo do ca- 
ractere da cabega da cobra e BC, o c6- 
digo do caractere usado no corpo da 
mesma. As varidveis H e T indicam os 
elementos de B() que contem as coorde- 
nadas da cabega e da ponta da cauda da 
serpente. Sao chamadas de "apontado- 
res" {pointers). 

Ainda usando o comando VPOKE 
para modificar os valores da tabela de 
cores da tela de 32 colunas, as linhas 680 
e 690 fazem com que os caracteres da 
cabega c do corpo da cobra tenham cor 
de frente igual a FG e cor de fundo igual 
a BG. As Unhas 700 a 720 colocam a ca- 
bega e dois segmentos do corpo na tela, 
de modo que a cobra tenha apenas es- 
tas partes a cada inicio de partida. 



flOTINA PRINCIPAL 



Da sub-rotina o programa retorna ^ 
linha 30, que o envia para a rotina prin- 
cipal, na linha 500. Essa linha verifica, 
tnicialmente, se na tela ha um numero 
para a cobra comer. P e o indicador de 
numero na tela; se seu valor for zero, a 
sub-rotina da linha 200 e chamada. Se 
houver um numero na tela, um valor 
qualquer entre 1 e 150 6 comparado com 
o ntvel de dificuldade SL. Se o numero 
gerado for menor que SL, o programa 
vai k sub-rotina 250, 

A sub-rotina que comega na linha 200 
coloca um numero qualquer na tela, em 
uma posigao escolhida ao acaso. A li- 
nha 200 seleciona o niimero — R — en- 




tre 1 e 9, bem como suas coordenadas 
RX e RY, Esses dols valores sao usados 
para calcular HP, posigao do numero na 
tabela de nomes da tela 1 . Antes que o 
numero seja impresso na tela, a linha 
210 verifica se na sua posigao hi algum 
outro caractere al^m do de espago — c6- 
digo 32, Dessa maneira, evita que o nii- 
mero seja colocado sobre a moldura ou 
sobre o corpo da serpente. A linha 220 
escreve o numero na tela, usando VPO- 
KE para colocar o c6digo corresponden- 
te ao numero na tabela de nomes — BA- 
SE (5) — da tela 1. Consuitando uma 
tabela ASCII, voce verA que os caracte- 
res de a 9 tSm c6digos de 48 a 57. 

A sub-rotina que comega na linha 250 
faz o valor do numero na tela ir dimi- 
nuindo ate que o jogador leve a cobra 
ate ele. Se o numero chegar a zero an- 
tes da cobra come-lo, um espafo em 
branco setci colocado em seu lugar. En- 
quanto isso nao acontecer. valores su* 
cessivamente mais baixos substituem os 
anteriores, na mesma posigao. A sub- 
rotina retorna para a linha 510. 

Essa hnha chama ouira sub-rotina, na 
linha 100, que recebe os comandos de 
movimentagao do cursor, Podemos usar 
tanto as teclas com setas como um joys- 
tick, desde que o comando STICK da li- 
nha 100 seja modificado (veja o artigo 
da pdgina 348). O IF,..THEN verifica se. 
a cobra cruzou a moldura ou seu pro- 
prio corpo. Em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
fim da partida. 

A linha 520 testa se o numero foi cn- 
golido pela cobra, somando 48 a R e 
comparando o resultado com TE, So- 
mamos 48 a R para obter o cddigo do 
caractere correspondente ao numero que 
estava na tela. TE, obtido com VPEEK, 
corresponde ao c6digo do caractere que 
estava na posigao que a cabega da co- 
bra ocupa agora. Caso o numero tenha 
sido realmente engolido, um caractere 
do corpo 6 colocado em sua posi^ao. O 
programa vai, entao, para a sub-rotina 
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da linha 300, que calcula o novo score, 
aumenta o tamanho da cobra propor- 
cionalmente ao numero engolido — la- 
fo entre as linhas 340 e 390 — e coloca 
outro numero na tela. 

As linhas 540 e 550 modificam os 
apontadores da cabeipa e da ponta da 
Cauda, ajustando seus valores, caso te- 
nham se reduzido a zero. A linha 560 co- 
loca o caractere da cabega na tela. 

A rotina que cuida do encerramento 
da partjda come^a na linha 800, que Urn- 
pa a tela, usando uma cor ao acaso, e 
produz um som enquanto a paiavra 
"FIM" 6 impressa virias vezes. No fim 
da operafao, outro som 6 produzido, A 
linha 810 atuaJiza o recorde, antes que 
as linhas 820 a 840 oferc9am ao joga- 
dor a oportunidade de jogar novamente. 



[EEll 



p / 


40) 






390 


NEXT 






400 


COLOR- 11 


; PLOT NP - INT 


(NP 


/ 40) * 40 


, INT 


(NP / 40) 


410 


RETURN 






500 


IF P - 


riJEN 


GOSUB ZOO: 


GOTC 


510 






505 


TF IMT ( 


RND 


(1) * 150) + 


1 < 


SL THEN 


30SUB 


250 


510 


GOSUB 100 


i IF 


Z = 1 THEN 8 


00 








520 


IF TE - 6 


THEN 


COLOR- 0-- 


PLOT 


B<H) - INT (BCH) / 40) * 


40, 


INT (B(H) 


f 40) 


■ GOSUB 300 


530 


COL0R= B: 


PLOT 


BCH) - TNT 


CB(H) / 40) * 


40. 


[NT (B(H) / 


40) ■ 


COL0R= 0: 


PLOT 


BtT] - INT 


CB{T) / 40) * 


40, 


[NT (B(T) / 


40) 








540 
= M 
550 


H - H - 1: 


IF H 


= THEN H 


T = T - 1 : 


IF T 


= THEN T 


= M 








560 


B(H) - NP: 


COLOH- U: PLOT 



NP - INT (NP / 40) * 40. INT C 

NP / 40) 

570 GOTO 500 

600 L$ = "X":? - 0:SC - ; SL = 

1:E = 

650 C0LOH= 9: HLIN 0,39 AT 0: 

VLIN 0,39 AT 0: ULIN 0,39 AT 39 

; HLIN 0,39 AT 39 

660 HOME : VTAB 22: PRINT "SCO 

RE ";SC; TAB ( 15) : 'RECORDE ";HS 

670 T - 3:H = 1: COLOH- 11 

6B0 B(l) = 300: PLOT B(l) - IN 

T (B(l) / 40) * 40, INT (B(l) / 

40} 
690 C0LOB= 8 

700 B{2) = 340: PLOT B(2) - IN 
T (B(2) / 40) * 40, INT (B(2) / 

40) 
710 B(3) - 380: PLOT B(3) - IN 
T (B(3) / 40) « 40, INT {BC3) / 

40) 
720 RETURN 

800 HGR : TEXT : HOME : FOR I 
- 1 TO 500 :XX = PEEK ( - 16336 



5 HOME : GR 

10 M = 500: DIM B (M) 

20 GOSUB 600 

30 GOTO 500 

100 GET K$: IF KS < 

KS < > "L" AND KS < 
D KS < > "2" THEN KS 
110 NP = B(H) - 40 * 

+ 40 « {KS - "L") - 

+ (KS = "X") 
120 TE = SCRN( NP - 

40) * 40. INT (NP / 
130 IF TE = 9 OH TE 

= 6 OR NP < 40 THEN 
: PLOT NP - INT (NP 
, INT (NP / 40) :E = 1 
140 LS - KS: RETURN 
200 R = TNT ( RND (11 * 91 + 1 
:RX ■= INT ( HND (I) * 37) + 2: 
RV = tNT ( RND (1) * 37) + 2 
210 IF SCRN( BX.HY) < > TH 
EN 200 

220 VTAB 22: HTAB 31: PRINT "B 
ONUS " : R : P = 1 
230 COLOR= 6: PLOT HX,RV: RETO 



> "P" 


AND 


> "X" 


AN 


= L$ 




(KS ^ " 


P") 


(KS = " 


Z") 


INT (NP / 


40) J 




- 11 OB 


TE 


COLOR= 


11 



/ 40) 



40 



RN 




250 


R=R-1: IFB=0 THEN C 


OL0R= 0: PLOT RX , RY : P = 0: HETU 


RN 




260 


HTAB 31: VTAB 22: PR [NT "B 


ONUS ";R: RETURN 


300 


SC » SC + R: HTAB 7: VTAB 2 


2: PRINT SC:P = 


310 


SL = SL + I: C0LOR= 8: PLOT 


NP 


- INT (NP / 40) * 40. TNT 


(NP 


/ 40) 


320 


H=H-l: IFH=0 THEN H 


= M 




330 


B(H) - NP 


340 


FOR J = J TO R 


350 


XX = PEEK ( - 16336) 


360 


GOSUB 100: IF E - 1 THEN 8 


00 




370 


H=H-1: IFH=0 THEN H 


= M 




380 


B(H) - NP: COLOR- 8: PLOT N 


P - 


TNT (NP / 40> * 40, INT fN 




n' III 
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) ; PRINT "FIM ' ; : NEXT 

80S IF HS < SC THEN HS = SC 

810 HOME : HTAB 15: VTAB 8: PR 

INT "SCORE = ';SC: HTAB 14: VTA 

B 12: PRINT "RECORDE = " i HS 

820 HTAB 6: UTAB 20: PRINT '<H 

ETUBN> PARA JOGAB NOyAMENTE" : G 

ET AS 

830 IF AS - CHRS (13) THEN B 

OME : GR : GOTO 20 

Ban GOTO 8 20 

Para o jogo no Apple e no TK-2000, 
escolhemos a tela de baixa resolu?So, }i 
que a cobra t feita de blocos. 

A linha 5 seleciona a tela e limpa sua 
parte inferior. A 10 dimensiona a ma- 
triz B de modo a acomodar no miximo 
quinhentos caracteres — o maior tama- 
nho que a cobra poderd ter. Note que 
OS elementos da matriz B nao correspon- 
dem is posicoes dos blocos na tela. Ca- 
da um deles contem as coordenadas de 



uma parte da cobra. A linha 20 manda 
o programa para a linha 600, que pre- 
para as condigoes iniciais do jogo. 

Na linha 600, P=0 significa que ne- 
nhunn bloco estd sen do mostrado; 
SC=0, que o score 6 zero; SL=0 quer 
dizer que o nivel de dificuldade e zero 
e E=0 informa ao computador que a co- 
bra permanece dentro dos limites da te- 
la, nao tendo cruzado nera a moldura, 
nem seu pr6prio corpo. Todas essas va- 
ridveis sao utilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 
chamadas no momento adequado. 

A linha 630 desenha a moldura. A li- 
nha 660 mostra o placar. 

Na linha 670, Ilia cor da cabega da 
cobra. H e T sao varidveis usadas para 
indicar os elementos de B ( ) que con- 
tem as coordenadas da cabe?a e da pon- 
ta da Cauda da serpente. Essas duas va- 
ridveis sao chamadas de "apontadores" 
{pointers). 

As linhas 680 a 710 colocam a cabe- 




i;a e dois segmentos do corpo na tela, de 
modo que a cobra ten ha apenas estas 
partes a cada inicio de partida. A cor do 
corpo da cobra & 8. 



BLOCOS NA TELA 



Da sub-rotina o programa retorna k 
linha 30, que o envia para a rotina 
principal, na linha 500. Essa linha veri- 
fica, iniciaLmente, se hA comida (bloco) 
para a cobra na tela. P e o indicador de 
bloco na tela; se seu valor for zero, a 
sub-rotina da linha 200 € chamada. Se 
houver um bloco na tela, um niiraero 
qualquer entre 1 e 150 6 comparado com 
o nivel de dificuldade SL. Se o mimero 
gerado for menor que SL, a linha 505 
manda o programa para a sub-rotina 
250. 



A sub-rotina que come^a na linha 200 
coloca um bloco na tela, em uma posi- 
(io escolhida ao acaso. A linha 200 se- 
leciona o mimero — R — entre 1 e 9, 
bem como duas coordenadas RX e RY. 
A linha 2J0 verifica se a posi?ao tern a 
cor 0, preta, indicando que nao h^ na- 
da no local. A linha 220 imprime na por- 
Cao inferior da tela o valor do bloco que 
all estd (bSnus). A linha 230 coloca um 
bloco de cor 6 em um ponto qualquer 
da tela. 

A sub-rotina da linha 250 diminui 
gradativamente o valor do bdnus, atd 
que jogador consiga fazer a cobra che- 
gar k comida. Se o mimero for reduzi- 
do a zero antes que a cobra coma o blo- 
co, um espago em brarico i colocado cm 
seu iugar. Enquanto isso nio ocorre, va- 
lores mais baixos sao sucessivamente 
exibidos. A sub-rotina retorna para a li- 
nha 510. 

Esta linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de mo- 
vimentafio do cursor. Usamos as teclas P, 
L, Z e X como de costume. O ir...THEN 
verifica se a cobra cruzou a moldura ou seu 
prbprio corpo; em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
encerramento da partida. 

A linha 520 testa se a comida foi en- 
golida pela cobra, coraparando a cor do 
bloco com TE. Usamos SCRN na linha 
120 para obter TE, cor do bloco que es- 
tava na posigao que a cabe^a da cobra 
ocupa. Caso a comida tenha sido real- 
mente engolida, um bloco do corpo i 
colocado cm sua posic3o. O programa 
vai, ent§o, para a sub-rotina da linha 
300, que calcula c novo score, aumenta 
o tamanho da cobra proporcionalmen- 
te ao bonus — lago entre as linhas 340 
e 390 — e, por fim, coloca outro bloco 
na tela. 

As Unhas 540 e 550 mudam os apon- 
tadores da cabega e da ponta da cauda. 
ajustando sens valores, caso tenham se 
reduzido a zero. A linha 560 coloca o 
bloco da cabe^a da cobra na tela. 

A rotina que cuida do final da parti- 
da comega na linha 800, que Umpa a te- 
la e provoca um ruido (no Apple), en- 
quanto a palavra "FIM" i impressa vS- 
rias vezes. A linha 805 atualiza o recor- 
de, antes que as linhas 810 a 830 ofere- 
cam ao jogador a oportunidade dc jo- 
gar novamente. 



10 M-512:DIM B (M) 

20 GOSUB 600 

30 GOTO 500 

100 K$=INKEY$:ir K$-"- THEN KS- 

L3 

110 K=ASC(KS) :NP-B(H)-32*(K-103 



L 
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II 



520 



120 TE=PEEKCNP> 

130 IF TE=FG OH TE"HC OR TE-BC 

OB NP<1056 THEN POKE NP,HC:E-1 

140 L$=KS: RETURN 

200 R=RND(9) ;RX-nND(13)+l:Ry-BN 

Dt29)+l:ftP=RX*32+RV 

210 IF PEEK{1024+RP)<>BG THEN 2 

00 

220 R$=RIGHT3(STRS(R) ,1) : PRINTg 

HP.RS; :P«1 : RETURN 

250 R=H-1:1F H-0 THEN PRINT eBP 

,CHRS(BG) : :P-0: RETURN ELSE PRIN 

T eRP,RI<JHTS!STR$(H3 .13 ! tBETURN 

300 SC-SC+R:PRINT @26.SC;;P-0 

310 St"SL+i:POKE NP.BC 

320 H-H-1:IF H=0 THEN a=M 

330 B(KJ=NP 

340 FOR J-1 TO R 

350 PLAY "L255CEF" 

360 GOSUB 100:1F E=l THEN BOO 

370 H=H~1:IF H=0 THEN H=M 

360 B(H5=NP:P0KE NP , BC 

390 NEXT 

400 POKE NP.HC; RETURN 

500 IF P=-0 THEN GOSUB 200 ELSE 

IF HND(159)<SL THEN GOSUB 250 

510 GOSUB 100: IF E=-l THEN 800 

520 IF TE=R+112 THEN POKE B tH) , 

BC; COSUB 300 

530 POKE BCH),BC:POKE B[T),BG 

540 H-H-1:IF H = THEN H=-M 

550 T=T-1:IF T=0 THEN T=M 

560 B(H)-NP:POKE NP.HC 

570 GOTO 500 

600 BG-flND{7)+l :FG»=RND(7) +1:LS = 

CHRS(54) :P-0:3C=0:SL=1:E=0 

610 IF BG-FG THEN 600 

620 CLS BG:BG=BG-1:FG-=FG-1 

630 BG=143+16*BG 

640 FG=143+16*FG 

650 FOR J=1024 TO 1055:PLAY "T? 

55L255O4AG":P0KE J,FG:POKE J+48 

0,FG:NEXT:FOR J=10S6 TO 1472 ST 

EP 32:PLAy"02DA":POKE J,FG:POKE 

J+31,FG:NEXT 
660 PRINT e3,"HEC0RDE=" ;HS; :PRI 
NT ei5.''SC0RE= "; 
670 HC=ASC("*")+64:BC=ASCCI") + 
64rT-3:H=l 

680 B(1)-1263:P0KE B(1),HC 
690 B{2)-1295:POKE B{2],BC 
700 B(3)-1327:POKE B{3),BC 
710 RETURN 

800 CLS RND(8); PLAY^OIACDEFGAC 
DEFG":FOR K=l TO 408: PRINT " FO 
RA! ! " ; :NEXT:PLAY"04ABCDEFG03AB 
CDEFG02ABCDEFG" 
810 IF HS<SC THEN HS»SC 
820 CLSrPHlMT 873, "SCORE =";S 
C: PRINT $230," BECOHDE =";HS 
630 A$=INKEYS: PRINT 6450, "PRESS 
lONE QUALQUEH TECLA PARA RECO 
MECAH" 

840 AS=INKEYS: IF AS="" THEM 84 
ELSE 20 



Usamos a tela de textos, e nao a gra- 
fica, para o jogo no TRS-Color, ja que 
a cobra e feita de caracteres. 

A linha 10 dimensiona a matriz B de 



modo que esta acomode no maximo 512 
caracteres — o maior tamanho que a co- 
bra poderi ter. Note que os elementos 
da matriz B nSo correspondem is posi- 
f oes de caracteres na tela. Cada elemen- 
to contem as coordenadas de uma par- 
te da cobra. A linha 20 manda o pro- 
grama k iinha 600, que prepara as con- 
di^oes iniciais do jogo. 

Na linha 600, BG 6 a cor de fundo 
da tela e FG, a cor da moldura. 
LS = CHR$(94) faz com que a cobra se 
movimente para cima, ate que uma te- 
cla seja pressionada. P = significa que 
nenhum niimero esti sendo mosirado; 
SC = 0, que o score ^ zero; SL = quer 
dizer que o nfvel de dificuldade i zero, 
e E = informa ao computador que a 
cobra permarece dentro dos limjtes da 
tela, nao tendo cruzado nem a moldu- 
ra, nem seu pr6prio corpo. Todas essas 
varidveis sac ulilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 
chamadas no memento adequado. 

A linha 610 verifica se a cor de fun- 
do ^ igual k da moldura, escolhendo 
duas novas cores se o par inicial for 
identico. A linha 620 usa CLS BG para 
coiorir a tela. Subtrai 1 de BG e FG. nu- 
ma preparagao para as contas das linhas 
630 e 640. Em bora pareijam complexas, 
essas contas simplesmente convertem 
BG e FG em valores que possam ser co- 
locados na tela com POKE, a fim de 
produzir a cor desejada. 

A linha 650 desenha a moldura, en- 
quanto produz alguns sons. A linha 660 
mostra o placar, 

Na linha 670, HC 6 o codigo do ca- 
ractere da cabeca da cobra e BC, o c6- 
digo do caractere usado no corpo da 
mesnia, H e T sao variaveis usadas pa- 
ra indicar os elementos de B( ) que con- 
tSm as coordenadas da cabe^a e da pon- 
ta da Cauda da serpente. Essas duas va- 
ridveis sao chamadas de "apontadores" 
(pointers). 

As linhas 680 a 700 colocam na tela 
a cabcfja e dois segmentos do corpo, de 
modo que a cobra tenha apenas estas 
partes a cada inicio de partida. 

Da sub-rotina o programa retorna pa- 
ra a linha 30, que o envia para a rotina 
principal na linha 500, Essa iinha veri- 
fica, inicialmente, se hA um niiraero na 
tela para a cobra comer. P 6 o indicador 
de numero na tela. Se seu valor for igual 
a zero, a sub-rotina da Iinha 200 e cha- 
mada. Se houver um numero na tela, um 
niimero qualquer entre 1 e 150 6 com- 
parado com o nivel de dificuldade SL, 
Se numero gerado for menor que SL, 
o programa vai h sub-rotina 250, 

A sub-rotina que come^'a na linha 20O 
coloca na tela urn niimero qualquer, era 
uma posifao escolhida ao acaso. A li- 



nha 200 seleciona o numero — R — en- 
tre 1 e 9, bem como suas coordenadas 
RX e RY. Esses dois valores sao usados 
para calcular RP, posiflo do numero na 
tabela de nomes da tela 1. Antes que o 
numero seja impresso na tela, a linha 
210 verifica se na sua posi^ao hd outra 
cor al^m da cor de fundo, para evitar 
uma superposipdo com a moldura ou 
com o corpo da serpente. A linha 220 
cabe escrever o numero na tela, e colo- 
car 1 em P. 

A sub-rotina que cometja na linha 250 
diminui gradativamente o valor do nu- 
mero na tela, at^ que o jogador consiga 
fazer a cobra come-lo, Se o niimero for 
reduzido a zero, um espa?o em branco 
d colocado em seu lugar. Enquanto isso 
nao ocorre, valores sucessivamente mais 
baixos sao colocados na mesma posit^ao. 
A sub-rotina retorna para a linha 510. 

Essa linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentac5o do cursor. O IF... THEN 
verifica se a cobra cruzou a moldura ou 
seu proprio corpo; em caso afirmativo, 
o programa vai para a linha 800, que cui- 
da do fim da partida. 



A COBRA CRESCE 



A linha 520 testa se a cobra engoiiu 
o numero, somando 112 a R e compa- 
rajido o resultado com TE. Somamos 
1 12 a R para obter o cddigo do caracte- 
re correspondente ao numero que esta- 
va na tela, TE € obtido com PEEK, e 
corresponde ao cddigo do caractere que 
estava na posi?ao que a cabe?a da co- 
bra ocupa agora. Caso o numero tenha 
sido realmente eiigolido, um caractere 
do corpo i colocado em sua posicao. O 
programa vai, entao, para a sub-rotina 
da linha 500, que calcula o novo score, 
aumenta o tamanho da cobra propor- 
cionalmente ao numero engolido — la- 
go entre as linhas 340 e 390 — e coloca 
outro numero na tela. 

As linhas 540 e 550 modificam os 
apontadores da cabega e da ponta da 
Cauda, ajustando seus valores, caso eles 
tenham se reduzido a zero, A Hnha 560 
coloca o caractere da cabe?a da cobra 
na tela. 

A rotina que cuida do encerramento 
da partida corner na linha 800, que lim- 
pa a tela usando uma cor ao acaso e pro- 
duz algum som enquanto a palavra 
"FIM" i impressa vdrias vezes. Ao fi- 
nal da opera^ao, outro som e produzi- 
do, A Iinha 810 se incumbe de atualizar 
o recorde, antes que as linhas 820 a 840 
oferegam ao jogador a oportunidade de 
jogar novamente. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMAQAO BASIC 

Os blocos grSficos definidos pelo usu^rio podem assumir 
a forma que quisermos. A imaginagao 6 o limite. 

C6DIG0 DE MAQUINA 

Apagando as linhas REM e os espagos inuteis, voc§ tornar^ 
seus programas mats rcipidos e econfimicos. Veja como faz6-lo. 

PERIFERICOS 

VocS quer adquirir uma impressora? Para uma boa 
escoiha, analise as caracteristicas dos diversos modelos. 



PROGRAMAgAO BASIC 

Conhecemos v^rias rotinas de ordenapao. Qual 
6 a melhor para o seu case? 




CURSO 



P»M»co 



27 



prog* 



fctA^<;^° 



Ot 



COIAP** 



tM)0«* 



iPROG 



:^^pM^^^ 



^0B^^^^ 



^ROG' 



,RAN^C^° 



Ot 



JOGOS 



fc6o\GOO^ 






sa.o" 






y 



y\ 



Ik.. 



